Exel 2002 FileDialog Nesnesini Kullanma

'Excel 2002 FileDialog nesnesini kullanacarak klasor taramasi yap.

Sub BrowseForFolder()

Dim fdBrowser As FileDialog

'FileDialog nesnesini edin

Set fdBrowser = Application.FileDialog(msoFileDialogFolderPicker)

With fdBrowser

'ilk kullanima ac

.Title = "Select Folder"

.InitialFileName = "c:\"

'iletisim kutusunu goster

if .Show Then

MsgBox "You selected " & .SelectedItems(1)

End If

End With

End Sub

______________________________________________________________________________

Tum ihtiyaciniz olan bilgisayarda ki klasorlerin gorunumunu sunan basit bir agac ise bu sayfa duzenin cok karmasik oldugunu dusunuruz. Kullanicilarin daha kolay buldugu klasor iletisim kutusu icin standart windows browse iletisim kutusunu gostermek uzere API islevini kullanabiliriz. Windows iletisim kutusu kullanicilarimiza  ne secmeleri gerektigini soyleyecek tanimlayici bazi metinler gosteren bir secenek sunar...

Faydali olmasi dilegiyle Saygilarimla...