[VB6]: Verificare l'esistenza di una cartella

[pieromont]

Come faccio a verificare che un percorso (locale o di rete precedentemente impostato) esista?

Ciao e grazie

[EngLab]

Impostato? :master:

[oregon]

Qualcosa del genere

    Dim a As Long
    
    On Error Resume Next
    a = GetAttr("X:\Percorso\Cartella")
    Debug.Print a

che dovrebbe restituire 0 o 16 a seconda che esista o meno la cartella ...

Ma se ti serve solamente per crearla se non esiste, puoi usare direttamente la MkDir

[MItaly]

Public Function DirExists(ByVal Path As String) As Boolean
    On Error Resume Next
    'Legge l'attributo e si assicura che si tratti di una directory
    FileExists = GetAttr(Path) And vbDirectory
    'Se avviene un errore la Function restituisce False
End Function

Restituisce True se la cartella esiste già.

[pieromont]

grazie