<!---hazir-kod.net kod başlangıc--->
' Form üzerine bri adet FileListBox, bir adet DirListBox bir adetde
' DriveListBox yerleştirin
dosyaadi="murat"
call dosyabul (dosyaadi)

Public Sub dosyabul(dosya As String)
On Error GoTo z
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
z:
MsgBox Err.Description
End Sub

<!---hazir-kod.net kod bitişi--->