IsFileExist

X = FileEsistente("C:\command.com")

Public Function FileEsistente(NomeFile As String) As Boolean
    Dim DummyFile As String
    
    'In caso di errore procedo all'istruzione successiva
    On Error Resume Next
    
    'Per default la funzione fallisce (il file non esiste)
    FileEsistente = False
    
    'Verifico con l'istruzione Dir$ l'esistenza del File
    DummyFile = Dir$(NomeFile)
    
    'Se in DummyFile c'e' il nome del file...
    If (Len(DummyFile) > 0) And (Err = 0) Then
        '...allora il file esiste
        FileEsistente = True
    End If
End Function

'Uso: X = DirectoryEsistente("C:\windows")
Public Function DirectoryEsistente(NomeDirectory As String) As Boolean
    Dim DummyDirectory As String
    
    'In caso di errore procedo all'istruzione successiva
    On Error Resume Next
    
    'Per default la funzione fallisce (la directory non esiste)
    DirectoryEsistente = False
    
    'Verifico la presenza della directory con l'istruzione Dir$
    DummyDirectory = Dir$(NomeDirectory, vbDirectory)
    
    'Se in DummyDirectory c'e' il nome della directory...
    If (Len(DummyDirectory) > 0) And (Err = 0) Then
        '...allora la directory esiste
        DirecoryEsistente = True
    End If
End Function

X = FileEsistente("C:\command.com")

Public Function FileEsistente(NomeFile As String) As Boolean
Dim DummyFile As String

'In caso di errore procedo all'istruzione successiva

On Error Resume Next

'Per default la funzione fallisce (il file non esiste)

FileEsistente = False

'Verifico con l'istruzione Dir$ l'esistenza del File

DummyFile = Dir$(NomeFile)

'Se in DummyFile c'e' il nome del file...

If (Len(DummyFile) > 0) And (Err = 0) Then
'...allora il file esiste

FileEsistente = True
End If
End Function

'Uso: X = DirectoryEsistente("C:\windows")

Public Function DirectoryEsistente(NomeDirectory As String) As Boolean
Dim DummyDirectory As String

'In caso di errore procedo all'istruzione successiva

On Error Resume Next

'Per default la funzione fallisce (la directory non esiste)

DirectoryEsistente = False

'Verifico la presenza della directory con l'istruzione Dir$

DummyDirectory = Dir$(NomeDirectory, vbDirectory)

'Se in DummyDirectory c'e' il nome della directory...

If (Len(DummyDirectory) > 0) And (Err = 0) Then
'...allora la directory esiste

DirecoryEsistente = True
End If
End Function