Cercare un file (era: Find)

[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