Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

CREARE CARTELLA E SOTTOCARTELLA IN C:\

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

CREARE CARTELLA E SOTTOCARTELLA IN C:\

Postdi scanacc » 07/01/16 01:17

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 ...
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30

Sponsor
 

Re: CREARE CARTELLA E SOTTOCARTELLA IN C:\

Postdi Anthony47 » 07/01/16 15:17

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: CREARE CARTELLA E SOTTOCARTELLA IN C:\

Postdi scanacc » 10/01/16 16:37

:P :P :P ;) ;) ;)
scanacc
Utente Junior
 
Post: 58
Iscritto il: 06/12/15 10:30


Torna a Applicazioni Office Windows


Topic correlati a "CREARE CARTELLA E SOTTOCARTELLA IN C:\":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti