Discussion :

[ced600]

Le nom des fichiers s'écrit dans la sortie standard.
SI tu lance avec une console dans la console.
colFiles représentent la liste et le foreach la parcours.
Et cela affiche par un echo le nom de chaque fichiers.
Tu peux mettre msgbox à la place, mais alors cela t'ouvriras autant de msgbox qu'il y a de fichiers.

[koKoTis]

ok, merci encore

Mais je ne voi pas le chemin du répertoire contenant les fichiers a copier dans le script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Const OverwriteExisting = True
strComputer = "."
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")
 
For Each objFile in colFiles
    Wscript.Echo objFile.Name
    objFSO.CopyFile objFile.Name , "D:\Archive\", OverwriteExisting
Next

[ced600]

Code :

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

objFile.Name

J'avais un doute je ne savais plus si cela renvoyer le chemin complet ou juste le nom.
Essaye avec :

Code :

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

objFile.Path

Si tu n'obtiens que le chemin complet sans le nom de fichier fait ceci :

Code :

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

objFile.Path & "\" & objFile.FileName & "." & objFile.Extension

[koKoTis]

oui, mais ou est le chemin du répertoire qui contien les fichiers à lister ?

[koKoTis]

De plus quand j'exécute le script il ne se passe rien, je ne peut pas savoir s'il y a les chemins complet

[ced600]

Code :

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

ExecQuery("Select * from CIM_DataFile where Path = '\\Ton_repertoire\\'")

[koKoTis]

le script ne fait toujours rien

[koKoTis]

il me renvoie une erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Const OverwriteExisting = True
strComputer = "."
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier\\'")
 
For Each objFile in colFiles
    Wscript.Echo objFile.Name
    objFSO.CopyFile objFile.Name , "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier2\", OverwriteExisting
Next

[ced600]

cela fonctionne sans mettre de lettre de disque dur (d'ailleurs cela plante avec) et je crois que tu dois doubler tous les \\

[koKoTis]

Mais si je veut copier les fichiers d'un répertoire qui ne se trouve pas sur le même disque que le script, c'est pas possible ?

[ced600]

Mais si je veut copier les fichiers d'un répertoire qui ne se trouve pas sur le même disque que le script, c'est pas possible ?

Normalement le script cherche sur tous les disques pour chercher le chemin ecrit.

Donc si tu execute sur c: le script, et que tu lui mets en chemin "\\toto\\tata\\titi" (sur d: ) cela devrait marcher.

[koKoTis]

OK, merci encore

Donc maitenant le script m'ouvre une première fenêtre avec le nom du premier fichier, puis me renvoie une erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Const OverwriteExisting = True
strComputer = "."
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
    ExecQuery("Select * from CIM_DataFile where Path = '\\Documents and Settings\\Kookatix\\Bureau\\Nouveau dossier\\'")
 
For Each objFile in colFiles
    Wscript.Echo objFile.Name
    objFSO.CopyFile objFile.Name , "C:\Documents and Settings\Kookatix\Bureau\Nouveau dossier2\", OverwriteExisting
Next

[ced600]

Heu sans l'erreur je ne vais pas pouvoir t'aider

[koKoTis]

[ced600]

Code :

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

objFile.Name

Comme je te l'ai dit plus haut essaye avec objFile.Path, je crois que Name ne renvois que le nom du fichier.
Je pense qu'il faut que tu fasses plutot :

Code :

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

objFile.Path & "\" & objFile.FileName & "." & objFile.Extension

[ced600]

Bon en fait name renvois le chemin complet. Pour voir la différence, essaye avec ce script et créer un repertoire temp où tu met 2 - 3 fichiers :

Code :

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

1
2
3
4
5
6
7
8
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\temp\\'")
For Each objFile in colFiles
    Wscript.Echo "Name = " & objFile.Name
Wscript.Echo "Path = " & objFile.Path
Wscript.Echo "Extension = " & objFile.Extension 
Next

L'eereur te dit que l'erreur se trouve à la ligne 12 mais c'est quoi la ligne 12 dans ton script (ce que tu as poster contient moins de 12 lignes)
Donc soit poste la ligne, soit poste tout le script que je voye où cela bloque.