Dosya Seç Diyaloğu

Sub FilePicker()
    Dim fd As FileDialog, ret As Long, sFile
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    ' Açılışta geçerli dizin.
    fd.InitialFileName = "C:"
    
    ' Çoklu seçim geçerli
    fd.AllowMultiSelect = True

    ' Pencere başlığına verilecek isim.
    fd.Title = "Dosya seçim diyaloğu"
   
    ' Sonraki çağırım için filitreyi temizle
    fd.Filters.Clear
    
    ' Filitreleri ekle
    fd.Filters.Add "Resimler(*.gif; *.jpg; *.jpeg)", "*.gif; *.jpg; *.jpeg", 1
    fd.Filters.Add "Excel dosyaları(*.xls; *.xlsx; *.xlsm)", "*.xls; *.xlsx; *.xlsm", 2
    fd.Filters.Add "Metin dosyaları(*.txt)", "*.txt", 3
    fd.Filters.Add "Tüm dosyalar(*.*)", "*.*", 4
    
    ' Varsayılan filitre
    fd.FilterIndex = 3
    
    ' Diyaloğu aç.
    ret = fd.Show
    
    ' İptal tuşuna basılırsa.
    If Not ret = -1 Then Exit Sub

    If fd.SelectedItems.Count > 1 Then
        For Each vFile In fd.SelectedItems
            MsgBox vFile
        Next
    Else
        MsgBox fd.SelectedItems(1)
    End If
End Sub

Ikinci ornek

Sub FilePicker2()
    Dim sFilter As String, sTitle As String, bMultiSelect As Boolean, defautFilterIndex As Integer, vFile
    
    bMultiSelect = True
    sTitle = "Bir dosya seçin"
    sFilter = "Text dosyaları(*.txt), *.txt"
    sFilter = sFilter & "," & "Excel dosyaları(*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm"
    sFilter = sFilter & "," & "Tüm dosyalar(*.*), *.*"
    defautFilterIndex = 2 ' Excel dosyaları
    
    fd = Application.GetOpenFilename(sFilter, defautFilterIndex, sTitle, , bMultiSelect)
    
    If IsArray(fd) Then
        For Each vFile In fd
            MsgBox vFile
        Next
    Else
        If fd <> False Then MsgBox fd
    End If
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


4 + 5 =