Oregon grazie per la risposta tempestiva!

per ora risolto





codice:
Dim MyFile As String
Dim cfile, path As String


path = "C:\APPS\LOGS\"
MyFile = Dir(path & "*.LOG")

Do While MyFile <> ""

If InStr(MyFile, nomepacchetto) > 0 Then

    MsgBox "trovato"
    
    Open path & MyFile For Input As 1
    
    cfile = Input(LOF(1), 1)
    
    Close 1

    If InStr(cfile, "Successful") > 0 Then
    
        MsgBox "yeah!"
    
    End If

End If

MyFile = Dir()

Loop