Copie de tous les dossiers et fichiers d'une racine

Bonjour à tous,

J'aimerai pouvoir copier tous les dossiers et fichiers d'une racine.
Exemple: copier tout le contenu de "U:\"

j'ai essayé:

Code:

---

1 2	set oFld = oFSO.GetFolder("U:\*.*") oFld.Copy "Z:\Test\" ,True

---

Mais cela ne fonctionne pas..

Merci pour votre aide. ;)

PS: autre petite question, savez vous ce qui peut occasionner un message d'erreur "pas d'extension de fichier..."

J'ai essayé ça:

Code:

---

1 2 3 4 5 6 7 8 9

Function Copie(maRacine) Dim fso, f, sf Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(maRacine) Set sf = f.SubFolders For Each sf in f sf.Copy maDestination,True Next End Function

---

Mais ça ne fonctionne pas.
Est-il possible d'appliquer un petit correctif à cette fonction?

Bon, finalement j'ai opté pour autre chose car impossible de mettre la main sur une fonction.. Voici ce que j'ai fais:

Code:

---

1 2 3 4

cmd="xcopy "& racine & " " & destination & " /s /e" set fso = CreateObject("Scripting.FileSystemObject") set shl = CreateObject("wscript.shell") shl.run cmd,0,true

---

Je suis malgré tout preneur si qqun a une réponse à mon PS.

Merci à tous.

Tu dois pouvoir y parvenir en adaptant ceci :

Code:

---

1 2 3 4 5 6 7

Set oFso=CreateObject("Scripting.FileSystemObject") set oFld = oFSO.GetFolder("S:\") If not ofso.FolderExists("C:\Test") Then ofso.CreateFolder("C:\Test") ' Parcourt les sous-dossiers For Each subFld In oFld.SubFolders subFld.Copy "C:\Test\" ,True Next

---

Remarque importante :La méthode oFld.Copy "C:\Test\", True ne marche pas s'il s'agit de la racine d'un lecteur.