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

Prima di eseguire un'operazione su un file, 
e' opportuno accertarsi che lo stesso esista. 
Ecco una piccola funzione che restituisce True
se il file esiste.

Allo stesso modo e' interessante anche sapere se 
una determinata directory sia presente o meno:
Inserire le seguenti routines in un modulo .bas:

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

Prima di eseguire un'operazione su un file,
e' opportuno accertarsi che lo stesso esista.
Ecco una piccola funzione che restituisce True
se il file esiste.

Allo stesso modo e' interessante anche sapere se
una determinata directory sia presente o meno:
Inserire le seguenti routines in un modulo .bas: