Discussion :

[bov13]

Pour copier tes resultats sur le disque dur, tu doit les ecrires dans un fichiers dans un répertoire precis.

Aide toi de ce site pour faire ton script :
http://www.activexperts.com/activmon.../filesfolders/

Et de ce site pour comprendre les objets WMI que tu utilise (ex :CIM_DataFile qui fait partie des classes CIM dans les classes WMI) :
http://msdn.microsoft.com/library/de...stdregprov.asp

Je ne suis pas sur de te comprendre Cédric. Moi qui début le VBS, j'avoue , c'est pas si facile.
Donc, tu voudrai dire que je dois copier les résultats de ma recherche dans un fichier (Quel type de fichier, txt?) puis à partir de ce fichier, les copier dans le repertoire.
Merci de pouvoir m'eclaircir!

[SfJ5Rpw8]

...
Ici, je récupere les résultats de la recherche dans une variable "resultat"
Je souhaiterai copier maintenant ces résultats dans un repertoire sur un pc distant.
Je te remercie!

que ve tu copier la liste des fichier .. ? ou le fichier lui même ..?

[bov13]

que ve tu copier la liste des fichier .. ? ou le fichier lui même ..?

Ben ma recherche me trouve x fichiers, donc c'est tous les fichiers qu'elles trouvent que je veux copier.
Merci!

[SfJ5Rpw8]

tu n'as pas besoin de ta variable chaine resultat... remplace la ligne resultat= .. par le code suivant dans ta boucle for:

Code :

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

1
2
 
objFile.Copy "f:\" & objFile.Filename & "." & objFile.extension

et remplace dans cette ligne f:\ par le répertoire de destination...

[bov13]

tu n'as pas besoin de ta variable chaine resultat... remplace la ligne resultat= .. par le code suivant dans ta boucle for:

Code :

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

1
2
 
objFile.Copy "f:\" & objFile.Filename & "." & objFile.extension

et remplace dans cette ligne f:\ par le répertoire de destination...

Sa fonctionne, juste un petit truc, dans la synthaxe, donc, c'est d'abord, le chemin de destination des fichiers et ensuite le chemin d'origine?
Car moi, il les copies mais pas au bon endroit, pourtant mon nom de chemin est correct.

[ced600]

En fait lorsque tu utilises la méthode copy, tu ne precises que le chemin de destination complet (donc aussi avec le nom du fichier et son extension).
Tu possèdes un objet File qui contient dejà le nom du chemin d'origine.
Suis juste la synthaxe donné par bbil.
Quand à ce que j'ai dit :

cedric600 : Pour copier tes resultats sur le disque dur, tu doit les ecrires dans un fichiers dans un répertoire precis.

Aide toi de ce site pour faire ton script :
http://www.activexperts.com/activmon.../filesfolders/

Et de ce site pour comprendre les objets WMI que tu utilise (ex :CIM_DataFile qui fait partie des classes CIM dans les classes WMI) :
http://msdn.microsoft.com/library/de...stdregprov.asp

Je me mélangeais les pinceaux avec d'autres problèmes d'autres personnes, j'avais oublié que tes résultats étaient des fichiers et nom des lignes de textes.
Mais, si tu ne l'as pas fait, va jeter un coup d'oeil au lien que je t'ai passé, ils t'aideront pour la programmation en VBS.

[bov13]

Merci!
J'ai réussi à faire une copie des fichiers que je trouve dans la recherche mais uniquement en local. Lorsque, je désire faire une copie vers un serveur distant, j'ai le message "Permission denied qui s'affiche".
J'insiste sur le fait qu'au niveau des droits sur les repertoires et tout, tout est correct. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles 
Wscript.Echo objFile.Name
Next
msgbox "Recherche terminée",,"Programme de sauvegarde"
msgbox "Début de la copie des fichiers",,"Programme de sauvegarde"
For Each objFile in colFiles
objFSO.CopyFile objFile.Name, "\\G00577\sav$\" & Nommachine
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

Peut-avant ce code, je réalise des copies de répertoires sur le meme serveur. Ya t-il des differences au niveau des droits quand on copie des repertoires ou des fichiers en vbscripts?
Merci de m'eclaircir!

[ced600]

Essaye cela :

Code :

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

1
2
3
For Each objFile in colFiles
objFSO.Copy "\\" & Nommachine & "\G00577\sav$\" & Nommachine & "\" & objFile.Name
Next

J'ai considéré que "G00577" est un nom de répertoire. Et d'après ton code je crois comprendre que Nommachine est le nom de la machine distante et que tu l'utilises pour copier tes fichiers dans un répertoire ayant ce nom.

Tu peut aussi copier un répertoire local vers une machine distante grâce à ce code :

Code :

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

1
2
3
4
5
6
7
8
9
strComputer = "Nom_du_PC_distant_ou_local_ou_adresse_IP"
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery( _
  "Select * from Win32_Directory where Name = 'c:\\Scripts'")
For Each objFolder in colFolders
  errResults  = objFolder.Copy("D:\Archive")
  Wscript.Echo errResults
Next

as tu les droits sur le serveur distant ?

[bov13]

Essaye cela :

Code :

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

1
2
3
For Each objFile in colFiles
objFSO.Copy "\\" & Nommachine & "\G00577\sav$\" & Nommachine & "\" & objFile.Name
Next

J'ai considéré que "G00577" est un nom de répertoire. Et d'après ton code je crois comprendre que Nommachine est le nom de la machine distante et que tu l'utilises pour copier tes fichiers dans un répertoire ayant ce nom.

Tu peut aussi copier un répertoire local vers une machine distante grâce à ce code :

Code :

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

1
2
3
4
5
6
7
8
9
strComputer = "Nom_du_PC_distant_ou_local_ou_adresse_IP"
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery( _
  "Select * from Win32_Directory where Name = 'c:\\Scripts'")
For Each objFolder in colFolders
  errResults  = objFolder.Copy("D:\Archive")
  Wscript.Echo errResults
Next

as tu les droits sur le serveur distant ?

Merci pour ta réponse!
Non, G00577 est le nom de la machine distante vers laquelle je souhaite envoyer les fichiers.
Je crée un repertoire sur le G00577 pour y stocker les fichiers. Le nom du repertoire est la variable : Nommachine
Donc, peux-tu me redonner le code avec les modifs que j'ai indiquées.
Merci bcp!

[ced600]

Cela donne cela :

Code :

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

1
2
3
4
 
For Each objFile in colFiles
objFSO.Copy "\\G00577\sav$\" & Nommachine & "\" & objFile.Name
Next

Mais c'est ce que tu as essayé, tu l'as fait avec copyfile, la je te montre comment tu peut le faire avec copy pour chacun de tes fichiers résultant de ta recherche, donc ton code donne ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
 
Set colFiles = objWMIService.ExecQuery _
SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
objFSO.Copy "\\G00577\sav$\" & Nommachine & "\" & objFile.Name
Next

Tu peut aussi copier un répertoire local vers une machine distante grâce à ce code :

Code :

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

1
2
3
4
5
6
strComputer = "Nom_du_PC_distant_ou_local_ou_adresse_IP"
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFolders = objWMIService.ExecQuery("Select * from Win32_Directory where Name = 'c:\\Scripts'")
For Each objFolder in colFolders
errResults = objFolder.Copy("D:\Archive")
Wscript.Echo errResults[/COLOR][COLOR=black]Next

J'ai fait une erreur, en fait avec ce code tu copies d'un pc local, un répertoire d'une machine distante vers un autre repertoire de cette même machine distante.

Ce que je t'ai donné au début de ce message devrait marcher et lorsque tu vois une erreur comme "Permission denied", c'est que tu as un problème de droit. La certainement qui tu ne peut pas copier sur le serveur où tu veux copier le répertoire.

[bov13]

J'ai testé avec ObjFSO.Copy. Voila, le message d'erreur que j'ai :
Cet objet ne gère pas cette propriété ou cette méthode : 'objFSO.Copy'

Par contre, il y a quelque chose qui me surprend :
Avec ce code :

Code :

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

1
2
 
objFile.Copy "\\G00577\sav$\ & Nommachine" & objFile.Filename & "." & objFile.extension

Je n'est aucun message d'erreur mais la copie ne fonctionne pas sauf en local! Bizarre!

Et avec ce code :

Code :

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

1
2
 
objFSO.CopyFile objFile.Name, "\\G00577\sav$\" & Nommachine

J'ai un message d'erreur : "Permission denied" alors que pourtant tous les droits sont bons!


J'ai fais de la copie de repertoire ds ce script aussi, ca fonctionne bien mais la copie de fichier ne veut pas, pas facile à comprendre, tu as une idée?

Sinon faut-il pas mieu que je cherche les fichiers et que je les copies 1 par 1 des qu'il en trouve un et pas attendre la fin pour tout copier. Quel est ton avis?

Je met à jour mon post, la copie des fichiers recherché fonctionne vers un repertoire en local sur ma machine mais c'est à partir du moment que j'envoie la copie vers un pc distant que sa ne fonctionne pas!

[ced600]

objFile.Copy "\\G00577\sav$\ & Nommachine" & objFile.Filename & "." & objFile.extension

C'est faux !!!!

Code :

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

1
2
 
objFile.Copy "\\G00577\sav$\" & Nommachine & objFile.Filename & "." & objFile.extension

ou

Code :

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

1
2
 
objFile.Copy "\\G00577\sav$\" & Nommachine & "\" & objFile.Filename & "." & objFile.extension

C'est bon !!! tu prends celui que tu veux, dans le premier cas, le nom de fichier est compose de nommachine et objet.filename, dans le deuxieme cas, un repertoire ayant pour nom le contenu de nommachine et creer et contient tous tes fichiers.

Le mieux c'est de copier les fichier des que tu les trouves. C'est ce que j'ai ecrit dans mon precedent message !!!!

[bov13]

Merci Cedric pour toute tes réponses.
Ma recherche et la copie fonctionne. J'avais fait une erreur bête dans un chemin d'accès.
Sinon, j'aimerai que mon script, pendant la recherche et la copie m'affiche une boite de dialogue avec marquer "Veuillez patientez"
Est-ce possible?
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'Rechercher les fichiers
msgbox "Recherche de documents Word (Ceci peut prendre quelques minutes)",, "Programme de sauvegarde"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Drive = 'C:' AND Extension = 'doc'")
For Each objFile in colFiles 
'Wscript.Echo objFile.Name
objFSO.CopyFile objFile.Name, "\\G00577\sav$\" & Nommachine & "\"
Next
msgbox "Copie des fichiers terminés",,"Programme de sauvegarde"

Merci!!