- 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 ...