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
  • Htaccess Nedir? .htaccess Komutları ve Örnekler
    Hocam iyi günler Google Web Search içerisinde bulunan 404 vermiş sayfaları 410 a çevirmek isityorum yap...
  • Sembol ve Karakterlerin Klavye Kısayolları - Alt Gr Tuş Kombinasyonları
    ALT GR değil ALT ....... ........
  • En İyi Mac Dönüştürücü - iSkysoft Video Converter Ultimate
    İndirip deniyorum hemen teşekkür ederim...
  • İnstagram Şekilli Profil Yazıları Oluşturma
    – єℓєşтιямє вєηιвєğєη∂ιуѕєη тαк∂ιя єт…нσşυηα gιтмιуσямυуυм кαƒαηα тαкмα ѕιктιя єт…...
  • Rüya Soyut Mu Somut Mu?
    Bu bilgiler benim bilim insanı olma bilgilerimi geliştirdi ve ayrıca ben çocuğum,kızım ve hayalimde ki ...
  • XP ne demek? XP nin anlamı nedir ?
    Roma dönemi konstantinin yaptığı simgeyi merak edip geldim ????...
  • Yeni başlayanlara En iyi 10 Kore dizisi
    Güzel liste. İlgimi çeken diziler oldu. Kill me heal me ve boys over flowers da olabilirmiş listede. ...