Verificare l’esistenza di un file

Questa funzione serve per verificare se esiste o meno un file.
Se il file passato come argomento esiste ritorna True, altrimenti ritorna False.

Codice

Private Function FileExist(file As String) As Boolean

   If Dir(file) <> "" Then
      FileExist = True
   Else
      FileExist = False
   End If

End Function

Utilizzo

if FileExist("C:\MioPercorso\MioFile.ext") then
   ' esiste
   ' ...
Else
   ' non Esiste
   ' ...
End If