Originariamente inviato da christian08
iFile = FreeFile
MsgBox "4"
percorsotxt = percorso & "\" & "resume1.txt"
MsgBox percorsotxt
Open percorsotxt For Input As #iFile
Do Until EOF(iFile)
Line Input #iFile, sBuffer
If InStr(sBuffer, "transfer complete") > 0 Then
MsgBox "trovato"
End If
Loop
Close #iFile

non mi trova il file e la variabile percorsotxt il valore è giusto



questo codice è messo dopo la funzione
Call Shell(stAppName, 1)

come faccio a dirgli che prima di eseguire il codice sopra deve aspettare la fine dell'esecuzione dell'applicazione che lancio che in questo caso è un file bat che esegue un trasferimento in line sul server
codice:
dim booTrovato as boolean
iFile = FreeFile
MsgBox "4"
percorsotxt = percorso & "\" & "resume1.txt"
MsgBox percorsotxt
Open percorsotxt For Input As #iFile
   Do Until EOF(iFile)
      Line Input #iFile, sBuffer
      If InStr(sBuffer, "transfer complete") > 0 Then
         MsgBox "trovato"
         booTrovato = true
      End If
   Loop
Close #iFile
if booTrovato = true then
   Call Shell(stAppName, 1)
end if