search any file on the computer's local drives.
search any file on the computer's local drives.
API Declarations
'Call using findfile(filename)
Rate search any file on the computer's local drives.
(1(1 Vote))
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) = fname Then MsgBox "File Found"
Next k
Next j
Next i
Exit Sub
z:
MsgBox Err.Description
End Sub
search any file on the computer's local drives. Comments
No comments yet — be the first to post one!
Post a Comment