Ciao,
vorrei trasformare questa macro che copia i file da una cartella in un'altra

Sub CopyAllFiles()
Dim eZio As Object
Set eZio = CreateObject("Scripting.FileSystemObject")
eZio.CopyFile "C:\Documets and Settings\User\Documenti\LAVORO_1\ITALIA\PIEMONTE\*.xlsm", "C:\Documets and Settings\User\Documenti\LAVORO_1\ITALIA\PIEMONTE\ANALISI_PERIODICHE", True
'MsgBox ("ok fatto")
End Sub

in modo che anziché copiare i file della cartella PIEMONTE copi le cartelle ivi contenute nella cartella ANALISI_PERIODICHE.
Ovviamente sono completamente incapace di scriverla :-))
Grazie infinite e buona giornata
eZio




(Nota: la macro mi fu preparata tempo fa ad hoc da a10n11)

salve
non mi è chiara la domanda.
Vuoi che vengano create solo le subdirectory nella cartella di destinazione oppure vuoi copiare le subdirectory con tutto il loro contenuto nella
cartella di destinazione?
saluti
Giap

---

salve
sperando di aver capito,
prova qualcosa di simile:

Sub Copy_Subfolder_Files()
Call Analizza("C:\Documets and Settings\User\Documenti\LAVORO_1\ITALIA\PIEMONTE", _
"C:\Documets and Settings\User\Documenti\LAVORO_1\ITALIA\PIEMONTE\ANALISI_PERIODICHE")
End Sub



Sub Analizza(path_Orig As String, path_Dest As String)
Dim Orig_Subdir, Dest_Subdir, fs
Set fs = CreateObject("Scripting.FileSystemObject")
For Each Orig_Subdir In fs.GetFolder(path_Orig).SubFolders
If Orig_Subdir.Name <> "ANALISI_PERIODICHE" Then
Set Dest_Subdir = fs.CreateFolder(path_Dest & "\" & Orig_Subdir.Name)
Call Analizza(Orig_Subdir.Path, Dest_Subdir.Path)
End If
Next
For Each file In fs.GetFolder(path_Orig).Files
If path_Orig <> "C:\Documets and Settings\User\Documenti\LAVORO_1\ITALIA\PIEMONTE" Then
FileCopy file.Path, path_Dest & "\" & file.Name
End If
Next
End Sub



praticamente analizza le subdir della cartella origine, le crea nuove nella cartella di destinazione e vi copia i file contenuti all'interno
Per sicurezza lavora su delle copie

saluti
Giap

---