controllo se cartella esiste

Hai un problema con Excel?

Nuova discussione

controllo se cartella esiste
di Rita (utente non iscritto) data: 03/12/2014 13:57:13
Ciao a tutti avrei questo quesito.
all'interno di un file excel ho una macro con una istruzione che ho qui di seguito inserito ossia associo
a "percorso" il percorso o tutta la directory del file dalla quale ho lanciato la macro.
premesso che al suo interno (directory)nella cartella finale posso avere una cartella che chiamo ad esempio cartella1 come posso fare per far si che mi appaia un messaggio una volta lanciata la macro che mi dica se la cartella1 c'e' o non c'e'
esempio
se il percorso e' c:pippopluto opolino il messaggio mi dovrebbe dire se all'interno di topolino c'e' la cartella1 o no
spero di essere stata chiara
PERCORSO = ActiveWorkbook.Path

di Zer0Kelvin data: 03/12/2014 14:45:17
Ciao.
Per controllare se un percorso esista o meno, puoi usare la funzione Dir in questo modo

Sub Test()
Dim Percorso As String, CartellaCercata As String
    Percorso = ActiveWorkbook.path
    CartellaCercata = "cartella1"
    If Dir(Percorso & "" & CartellaCercata, vbDirectory) <> "" Then
        MsgBox "La cartella esiste"
    Else
        MsgBox "La cartella non esiste"
    End If
End Sub

di Rita (utente non iscritto) data: 03/12/2014 16:01:27
Ti ringrazio,
guardando anche un po qua e un po la avevo anche risolto in questo modo
In ogni caso grazie

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
PERCORSO = ActiveWorkbook.Path
DRIVE = Mid(PERCORSO, 1, 1)
Call ChDrive(DRIVE & ":")
Call ChDir(PERCORSO & "")
If Not fso.FolderExists("CARTELLA1") Then
MSGBOX ("la cartella non esiste")
else
msgbox ("la cartella esiste")
end if

Vuoi Approfondire?