Dosya adını BrowseForFolder ile almak

[tamer42]

Merhabalar,

Aşağıdaki kodla; BrowseForFolder yöntemiyle istediğimiz klasör adını kolaylıkla seçebiliryoruz.

Sub Test2()

Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasor seçin !", &H100)
If Not ObjFolder Is Nothing Then
MyPath = ObjFolder.Items.Item.Path
End If

MsgBox MyPath

End Sub

Bunun bir benzeri BrowseForFile var mıdır?
yani açılan pencereden seçtiğimiz dosyanın adını belirleyebilirmiyiz?

İyi Çalışmalar.

 

[Haluk]

Sub Test()
    Dim ObjFolder As Object
    Dim MyPath As String, MyFile As String
    Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder _
                    (0, "Klasör seçin...", &H4000, "C:\Program Files")
    If Not TypeName(ObjFolder) = "Nothing" Then
    MyPath = ObjFolder.Items.Item.Path
    MyFile = ObjFolder.Items.Item.Name
    End If
    Set ObjFolder = Nothing
    MsgBox "Dosya / Klasör yolu: " & MyPath & vbCrLf & vbCrLf & _
           "Dosya / Klasör adı : " & MyFile
End Sub

 

[tamer42]

Sn Haluk İlginize teşekkürler..

Yalnız bu kodları çalıştırdığımda ekteki hata mesajını veriyor.

Bu hata neden kaynaklanabilir?

İyi Çalışmalar.

 

[Orion1]

Sn Haluk İlginize teşekkürler..

Yalnız bu kodları çalıştırdığımda ekteki hata mesajını veriyor.

Bu hata neden kaynaklanabilir?

İyi Çalışmalar.

Haluk hocam teşekkürler.Çok güzel.
Yalnız ayni hatayı bende aldım.
Bir dosya seçince tamama basınca hata veriyor.

 

[Haluk]

Kullanılan işletim sisteminden kaynaklanıyor olabilir.

Benim işletim sistemim Win2000 Prof.

.

 

[tamer42]

Benim ki:
Win xp burada çalışmaz mI?

 

[Necdet]

Merhaba,

Yöntem çok olabilir, bir örnekte ben vereyim.

Sub DosyaAdiGetir()
On Error Resume Next
Dim i As Integer
'With Application.FileDialog(msoFileDialogFolderPicker) '---Dizin Gösterir
 With Application.FileDialog(msoFileDialogOpen)         '---Dosyaları Gösterir
    .AllowMultiSelect = False
    .Show
    i = Application.WorksheetFunction.Find("\", StrReverse(.SelectedItems(1)))
    If i = 0 Then Exit Sub
    MsgBox "Dosya Yolu : " & Left(.SelectedItems(1), Len(.SelectedItems(1)) - i + 1)
    MsgBox "Dosya : " & Right(.SelectedItems(1), i - 1)
    End With
End Sub