Cercare un file (era: Find)

[PEA]

Come posso far cercare un file ad un mio programma in Vb6?
magari foglio cercare il file prova.txt nella cartella c:\documenti, come fare??
grazie

[Toeke]

Private Sub Form_Load()
Dim i As Integer
Dim pfile As String
    pfile = Dir$("C:\MyDirectory\MyDirectory\*.*")
    While pfile <> ""
        i = i + 1
        pfile = Dir$
    Wend

End Sub

Toe