CREARE CARTELLA E SOTTOCARTELLA IN C:\

[scanacc]

Ciao a tutti, ho una macro con cui creo una cartella in C:\ in base al nome trovato in F1.

Codice: Seleziona tutto

Sub CreaCartella()
Dim Cartella As String
Dim FileSystemObj
Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
Cartella = "C:\" & Range("F1")
If Not FileSystemObj.folderExists(Cartella) Then
    FileSystemObj.CreateFolder Cartella
    MsgBox "Attenzione: E' stata creata la nuova Cartella " & Range("F1") & " nella Directory C:\", vbInformation, "Avviso"
Else
MsgBox "Attenzione: La Cartella " & Range("F1") & " esiste già!", vbInformation, "Avviso"
End If
End Sub


Vorrei però inserire anche una sottocartelle.
Potete darmi una mano ...

[Anthony47]

Non hai descritto il criterio secondo cui vuoi creare Folder\Subfolder, comunque con questo codice puoi creare la struttura di folder che ti serve:

Codice: Seleziona tutto

Sub RecurPath(myPath)
Dim pPath As Object, oFSO As Object:
'
Set oFSO = CreateObject("Scripting.FileSystemObject")
    If myPath <> "" And Not oFSO.FolderExists(myPath) Then
        If Not oFSO.FolderExists(oFSO.GetParentFolderName(myPath)) Then
            Call MakePath(oFSO.GetParentFolderName(myPath))
        End If
        oFSO.CreateFolder (myPath)
    End If
Set oFSO = Nothing
End Sub


Per creare la struttura dovrai inserire nel tuo codice una riga del tipo

Codice: Seleziona tutto

Call RecurPath(Cartella)


dove "Cartella" conterra' il percorso da creare, es C:\provaz\pippo; il drive (C: nell'esempio) deve gia' esistere, il percorso non esistente viene creato.

Ciao

[scanacc]