Public Sub VerifyFile(FileName As String)
On Error Resume Next 'Apre lo specifico file Open FileName For Input As #1 'Gestione dell'eventuale errore If Err Then MsgBox ("Il file " & FileName & " non e' stato trovato.") Exit Sub End If Close #1 End Sub 'All'interno del programma sara' poi sufficiente 'richiamare la funzione dichiarando il file da 'ricercare: Call VerifyFile("MyFile.txt") |