Public Sub VerifyFile(FileName As String)
If Not Dir(FileName) = FileName Then MsgBox("Il file non e' stato trovato.") End If End Sub 'All'interno del programma sara' poi sufficiente 'richiamare la funzione dichiarando il file da ricercare: Call VerifyFile("MyFile.txt") |