Application.FileDialog
'u kullanan bir işlev oluşturun. FileDialog
, kalıcıdır.
Bu işlev, kullanıcının bir klasör oluşturup seçmediğine veya FileDialog
numaralı telefona iptal edildiyse boş bir dizeye döner.
Public Function FolderSelection() As String
Dim objFD As Object
Dim strOut As String
strOut = vbNullString
'msoFileDialogFolderPicker = 4
Set objFD = Application.FileDialog(4)
If objFD.Show = -1 Then
strOut = objFD.SelectedItems(1)
End If
Set objFD = Nothing
FolderSelection = strOut
End Function
ben size komut düğmesinin click olayı bu işlevi kullanabilirsiniz düşünüyorum. BrowseFolder Dialog: Microsoft birgün Ofisinden FileDialog
nesneyi kaldırabilir endişe ediyorsanız
Dim strChoice As String
strChoice = FolderSelection
If Len(strChoice) > 0 Then
Me.TextBoxName = strChoice
Else
' what should happen if user cancelled selection?
End If
, bunun yerine Windows API yöntemini kullanabilirsiniz.
Çalıştı. Teşekkürler! –
Bunun yerine Windows API'sini kullanmanızı öneririm, çünkü MS bir FileDialog nesnesini bir gün Office'ten kaldırmamak için MS'ye güvenmiyor, çünkü bunlar Office 2007'den FileSearch nesnesini kaldırdı. –