Filtreli dosya konumu listeleme

Bir klasör içindeki alt klasörler de dahil olmak üzere içindeki dosyaları dosyanın konumu isteğe göre filtreli listeleyeceğiz.

Bir klasör içindeki alt klasörler de dahil olmak üzere içindeki dosyaları dosyanın konumu isteğe göre filtreli listeleyeceğiz.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim ky As String = "C:PDF_to_Print"

        'Çoğunuz biliyorsunuzdur arama yaparken bir metnin başına "*" işareti koyarsak
        'Dosya adının içinde kontrol eder

        'Eğer 3. karakterin yerine "?" koyarsak aradığımız dosyalarda
        '3. karakterin önemli olmadığı 3. karakter ne olursa olsun o dosyayı dikkate al

        Dim filtre As String = "*FORMB?_09_2017_09_2017*.pdf"
        
        ListBox1.Items.Clear()

        'IO.SearchOption.AllDirectories // alt satırdaki bu kodu
        'kaldırırsanız sadece belirttiğiniz konum üzerinde işlem yapacaktır.
        'Eğer kalırsa alt klasörler içinde de arama yapacak
        ListBox1.Items.AddRange(System.IO.Directory.GetFiles(ky, filtre, IO.SearchOption.AllDirectories))
End Sub

 

Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git