Discussion :

[nikkss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nikkss]

J'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[nikkss]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[l_autodidacte]

Tu dois pouvoir y parvenir en adaptant ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.