Controllare l'esistenza di una Directory

Vi propongo 2 metodi.

1° Metodo:

Controlla se una Directory esiste o no restituisce True se esiste False se non esiste.

'*********************************************
'NomeDir = percorso completo della Directory
'*********************************************
Function EsisteDir(NomeDir As String) As Boolean
On Local Error GoTo GestoreErrori
'Controlla l'esistenza della cartella specificata.
If NomeDir <> "" Then
    EsisteDir = IIf(Dir(NomeDir, vbDirectory Or     vbNormal Or vbReadOnly Or vbSystem Or vbHidden) <> "", True, False)
Else
    EsisteDir = False
End If
Exit Function

GestoreErrori:
'Sė č verificato un errore: il file non esiste.
EsisteDir = False
End Function

Testato su: Tutti i Sistemi operativi

2° Metodo:

Function DirExist(path As String) As Boolean
    On Error Resume Next
    DirExist = (Dir$(path & "\nul") <> "")
End Function

Vi domanderete da dove arriva la srtinga "\nul". La spiegazione (da "Programmare Visual Basic 6.0" di Francesco Balena) risale ai tempi di MS-DOS ed agli speciali nomi di file "nul", "con" e cosė via, che si riferiscono a dispositivi speciali (il dispositivo nullo, il dispositivo console, eccetera) che appaiono in qualsiasi directory ricercata, purchč tale directory esista. Questo approccio funziona con qualsiasi directory, mentre l'uso di Dir$("*.*") fallisce se si testa l'esistenza di directory vuote.