VB.Net'te İstediğin Dizinde Dosya Arama (Alt Klasörler Dahil!)

VB.Net'te istediğin dizinde alt klasörler de dahil dosya aramayı nasıl yaparız, ona bakalım.

VB.Net'te istediğin dizinde alt klasörler de dahil dosya aramayı nasıl yaparız, ona bakalım.

Bu ilk dersim. Google'da araştırma yaparsanız VB.Net'te Alt Klasörler de dahil olmak üzere bir dizinde arama yapmak için gereken kodları bulamazsınız. Mesela benim canım çıktı bu kodları bulmak için. Başlıyorum.

Formumuza sadece bir tane ListBox ekliyoruz.

Sonra Formumuzun Load Kısmına:


Dim directory = "D:" 'Burası en güzel kısmı.Çünkü burda istediğimiz dizini seçiyoruz.Ben Yerel Disk D'yi seçtim.

        Dim files() As System.IO.FileInfo

        Dim dirinfo As New System.IO.DirectoryInfo(directory)

        files = dirinfo.GetFiles("deneme.txt", IO.SearchOption.AllDirectories) 'Burdaysa aranacak dosyamızı seçiyoruz.Burda ister bir dosya yazabiliriz istersekte dosya uzantısı yazabiliriz.

        For Each file In files

            ListBox1.Items.Add(file) 'Burdaysa bulduğu dosyaları ListBox1 e ekliyoruz.

        Next



Yukarıdaki kodu geliştirebiliriz. Aşağıda kodun farklı hallerini yazdım:

Sadece istediğimiz dosya uzantısının listelenmesi için:


Dim directory = "D:" 'Burası en güzel kısmı.Çünkü burda istediğimiz dizini seçiyoruz.Ben Yerel Disk D'yi seçtim.

        Dim files() As System.IO.FileInfo

        Dim dirinfo As New System.IO.DirectoryInfo(directory)

        files = dirinfo.GetFiles("*.txt", IO.SearchOption.AllDirectories) 'Burdaysa aranacak dosyamızı seçiyoruz.Burda ister bir dosya yazabiliriz istersekte dosya uzantısı yazabiliriz.

        For Each file In files

            ListBox1.Items.Add(file) 'Burdaysa bulduğu dosyaları ListBox1 e ekliyoruz.

        Next



Kod ile ilgili Açıklama:
Yukarıdaki koddaki "*" işareti aranacak dosya adının belli olmadığını belirtir.
  • Etiketler;
Bahri9200 Bahri9200
Sanalkurs.net
Yorum Yaz

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

güzel. bide dosyaların yolunu yanına yazdırabilirmiyiz
biraz geç cevap verdim ama file dosyasında hata veriyor hata ise tanıtmamak onu Dim directory = "D:" Dim files() As System.IO.FileInfo Dim dirinfo As New System.IO.DirectoryInfo(directory) Dim file = ("*.txt") files = dirinfo.GetFiles(file, IO.SearchOption.AllDirectories) For Each file In files ListBox1.Items.Add(file) 'Burdaysa bulduğu dosyaları ListBox1 e ekliyoruz. Next yaparsanız hata vermez
Nihat bey yukaridaki kodu kullanmak istedim ancak "For Each file In files" buradaki files kisminda sorun cikartiyor? Yardimlarinizi rica ediyorum.

Yukarı Git