Dosya Arama ve Bulma

tarih22.10.2008 00:24 — Visual Basic,



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...


Bir önceki konu başlığımıza göz atmak isterseniz tıklayınız : Visual Basic Dosya Kopyalama Path/File access error





Yorum Yazın