Visual Basic'te Dosya Arama ve Bulma

Formunuzun üzerine 1 adet FileListBox ve bir adette  DirListBox yerleştirin ve kodları kod penceresini açarak içine ekleyin....
dosyaadi="deneme"
call dosyabul (dosyaadi)
Public Sub dosyabul(dosya As String)
On Error GoTo Hata 'hata oluşursa haberimiz olsun
For i = 0 To drive1.ListCount
dir1.Path = drive1.List(i)
For j = 0 To dir1.ListCount
file1.Path = dir1.List(i)
For k = 0 To file1.ListCount

If file1.List(k) = dosya Then MsgBox "Dosya Bulundu."

Next k
Next j
Next i

Exit Sub

Hata:
MsgBox Err.Description
End Sub
Kodu kendinize göre daha iyi şekle getirebilirsiniz...

İlk yorumu siz yazın !..

  • Yorumunuz en az 30 karakter olmalıdır. (0)
Sitede Ara
  • Genel İşletme 1. Dönem Vize Soruları
    soru 3 şıklarında yanlışlık vardır tüketim ve hizmet aynı kapasitede yer alıp ikisi de cevap kabul edil...
  • Türkiye Ekonomisi 1. ve 9. Üniteler Ders Notları
    çok iyi baya işime yaradı cidden...
  • Etkileyici Whatsapp Durum (Hakkımda) Sözleri
    Ben bunların hiçbirini beğenmedim ...
  • Aöf (Açıköğretim Fakültesi) Telefon Numarası
    Merhaba benim 2008 yılında aöf işletmeye kaydım oldu ve uzun sure sonra şuan 23 ekime kadar ben tekrar ...
  • 1 dakikalık Saygı Duruşu ve İstiklal Marşı indir (Video ve MP3)
    teşekkürler emeğine sağlık çok güzel olmuş...
  • Vodafone Elazığ Çağrı Merkezi Müşteri Hizmetleri Yetkilisi İş Başvurusu
    Ise alındınızmi bilgi verirmisiniz ...
  • Volkswagen - Skoda Golf Passat Koltuk Başlığı Nasıl Çıkarılır?
    Teşekkürler. Böyle sistem mi olur a... oldu olacak aşağıya inip kaputun içinden kol falan cekelim...