Klasöre Gözat Diyaloğu

Sub BrowseFolder()
    Dim fd As FileDialog, ret As Long
    
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' Açılışta geçerli dizin.
    fd.InitialFileName = "C:"
    
    ' Pencere başlığına verilecek isim.
    fd.Title = "Klasör seçim diyaloğu"
    
    ' Butona verilecek isim.
    fd.ButtonName = "Klasörü seçiniz..."
    
    ' Diyaloğu aç.
    ret = fd.Show
    
    ' İptal tuşuna basılırsa.
    If Not ret = -1 Then Exit Sub
    
    MsgBox fd.SelectedItems(1)

End Sub

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 4 =