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