Controllare l'esistenza di un File

Vi propongo tre metodi per controllare l'esistenza di un File, una Subroutine e due Function.

1° Metodo:

'*********************************************
'Controlla se un File esiste o no, restituisce
'True se esiste False se non esiste.
'NomeFile = percorso completo del File
'*********************************************
Function EsisteFile(NomeFile As String) As Boolean
On Local Error GoTo GestoreErrori
'Controlla l'esistenza del file specificato.
If NomeFile <> "" Then
    EsisteFile = IIf(Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly Or vbSystem) <> "", True, False)
Else
    EsisteFile = False
End If
Exit Function

GestoreErrori:
'Sì è verificato un errore: il file non esiste.
EsisteFile = False
End Function

Testato su: Tutti i Sistemi operativi

2° Metodo:

'*********************************************
'Controlla se un File esiste o no
'file = file da controllare
'exist = restituisce -1 se trova il file, 0 se non lo trova
'*********************************************
Public Sub EsistFile2(file As String, exist As Integer)
Dim nfile As Integer
nfile = FreeFile
exist = 0
Open file For Append As #nfile
exist = (LOF(nfile) > 1)
Close #nfile
If exist = 0 Then Kill file
End Sub

Testato su: Tutti i Sistemi operativi

3° Metodo:

Function FileExists(filename As String) As Boolean
    On Error Resume Next
    FileExists = (Dir$(filename) <> "")
End Function

Testato su: Tutti i Sistemi operativi