by Bharath.T. (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
search any file on the computer's local drives.
API Declarations
'Call using findfile(filename)
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