Copie de fichiers avancée

Version imprimable

10/01/2008, 16h47
koKoTis

Copie de fichiers avancée

Bonjour, je voudrai faire un script VBS pour mettre à jour une clé USB, le script devra copier le contenu de certain répertoire, et ne copier les fichiers qui existe déja sur ma clé de destination uniquement s'il on été modifier, pouriez vous m'aider ?
10/01/2008, 17h38
ced600

Ici tu as des exemples de script pour gérer les fichiers et les répertoires.
Parcours les deux collections de scripts, tu trouvera peut être de koi détecter une clé USB.
Peut être là.
10/01/2008, 18h44
koKoTis
Bonjour et merci ;)

J'ai trouver ceci pour la copie de réprtoire:
Code:

1 2 3 Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFolder "Nouveau dossier", "Nouveau dossier1"
Mais rien pour ne copier que les fichier non présent dans le destination
11/01/2008, 10h43
ced600

Citation:

Mais rien pour ne copier que les fichier non présent dans le destination

Ceci faut le faire toi même en utilisant les exemples proposé.
Il faut récupérer la liste des fichiers des deux répertoires.
Comparer les listes obtenus.
Créer une liste de fichier non nprésentr dans la destinations.
Et faire une copie de chacun de ces fichiers de la liste.
11/01/2008, 10h45
koKoTis

Mais c'est un peut plus compliquer que ca, je veut que les fichiers existant dans la destination soit copier s'ils on été modifié
11/01/2008, 11h25
ced600

Tu as la possibilité de regardé la date de modification.
Tu la compare avec un date de référence et le tour et joué.
DateComp et DateDiff si je ne me trompe pas pour comparer des dates.
Sur le lien que je t'ai passé il doit y avoir un exemple pour obtenir la date de modification.
11/01/2008, 16h12
koKoTis
Merci pour ses explication ;)

Je vai étudier ca cette nui je pensse

Eb attenadant, si je fait une simple copie:
Code:

1 2 Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFolder "Nouveau dossier", "Nouveau dossier1"
N'y a t-il pas moyen que les fichiers copiser s'affiche dans la console comme en batch pour voir si les fichiers se copi bien ?
11/01/2008, 16h16
ced600

Si la méthode renvois une valeur tu peux essayer de l'afficher sur la sortis standard avec wscript.echo.
Sinon nan, il faut que tu fasses la vérification manuellement.
11/01/2008, 16h20
koKoTis

Mais le wscript.echo s'affichera une fois que la copie sera terminé, moi je voudrai voir les noms des fichiers pandant la copie, qu'un fenêtre soit ouverte tout le temps de la copie pour que l'on voi quelque chose quoi
11/01/2008, 16h32
ced600

Pas avec copyfolder.
Il faudrait copier les fichiers un à un toi même dans ce cas.
Il y a copyfile. Mais avant il faudra lister les fichiers du répertoire. Il y a un exemple pour enumérer les fichiers dans un répertoires sur le site que je t'ai passé.

tu énumères, et parcours la liste des fichiers et pour chaque fichier tu copies, et avant la copie tu affiches un message et après tu affiches que c'est terminé.

En vbs je ne vois pas autrement. Regarde quand même dans les contributionsd, concernant tous les msgbox modifier, avancé que tu peux trouver, quelque fois que quelqu'un a fait une petite appli fenetre pour la copie. Tu sais lorsque tu fais parcourir les répertoires lors d'une installations.
Peut être qu'il y a une mise en attente avec une barre de progression.

Recherche également tous les scripts qui aurait implémenté une barre de progression.
Mais pour voir les noms de fichier se copier il faut utiliser ma méthode.

Je viens de me rappeler une chose que RadPat aime beaucoup -> utiliser la console dos :D
En vbs tu peux executer des commandes dos. Regarde l'objet WSH, et cherche la méthode run.

En plus pour toit les commande dos cela ne devrait pas être un trop gros problème non ? :D
11/01/2008, 16h39
koKoTis

Merci encore ;)

Je voudrai justement evité la commande dos, par ce que le dos ca va pas avec vista, c'est pour cela que je passe au vbs.

Pour la barre de progression, c'est encore mieu, s'il n'y a pas les nom des fichiers ce n'est pas grave, ce qu'il faut c'est que je voi quelque chose, une barre de progression c'est parfait ,)

Mais il faudrai que quelqu'un vueille bien m'aider, voir me donner des exemple par ce que les lien que tu ma donner sont en anglai et je ne comprend pas l'anglai, et je ne trouve pas toujours ce que je cherche sur vbs avec google

Donc t'aurai pas un lien pour la berre de progression ?
11/01/2008, 16h44
ced600

Non, mais je sais que sur le forum il y a eu des discussions sur le sujet, et regarde dans les contributions, il y en a peut être une.

Mais si tu fais du vista je te conseille de faire du powershell. Tu auras plus de possibilité et si je ne me trompe pas accés au classe du framework .Net

L'objectif de MS est d'imposer le powershell à la place du vbs, batch, ...
Donc si tes scripts doivent servir plus de 2 semaines, autant les faire en un langage que tu es sur de pouvoir toujours utiliser sur vista.
11/01/2008, 16h47
koKoTis

Mais pour l'instant je sui entrain de faire un script pour géré ma clé usb, et je ne veut pas avoir a installer powershelle pour géré ma clé, il me faut juste cette barre de défillement, aprés je passerai a powershell

Salut,

voici ce que je peux te proposer en VBS, la copie du répertoire c:\temp vers c:\temp2 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 On Error Resume next Set ObjFso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Shell.Application") Set Fold = ObjFso.CreateFolder("C:\Temp2\") CreateFolder = Fold.Path Fold1 = "C:\Temp\*.*" Fold2 = Fold Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(Fold2) objFolder.CopyHere Fold1, FOF_CREATEPROGRESSDLG
Attention, il faut que tu disposes de suffisemment de fichiers dans C:\Temp pour avoir le temps de voir ta barre de défilement.

A++

13/01/2008, 14h19
koKoTis

Merci pour cette barre de progression c'est parfait ;)

Toute foi, n'y aurait il pas moyen de simplifier le code ?

Citation:

Envoyé par ced600

Pas avec copyfolder.
Il faudrait copier les fichiers un à un toi même dans ce cas.
Il y a copyfile. Mais avant il faudra lister les fichiers du répertoire. Il y a un exemple pour enumérer les fichiers dans un répertoires sur le site que je t'ai passé.

Le lien que tu ma donner et en anglai, et je ne comprend pas l'anglai, tu n'aurait pas le lien directe ?

Si non j'ai trouver ceci:
Code:

1 2 3 4 5 6 7 Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("D:\perso") Set fc = f.Files Set fileWriter = fso.OpenTextFile("D:\perso\liste.txt", 2, True) For Each f1 in fc fileWriter.WriteLine f1.name Next
Mais il ne met pas les chemin complet des fichiers, et il ne liste pas les fichiers des sous répertoires, pouriez vous m'aider a aranger ca ?

14/01/2008, 11h19
ced600

Citation:

Citation:

Envoyé par ced600
Pas avec copyfolder.
Il faudrait copier les fichiers un à un toi même dans ce cas.
Il y a copyfile. Mais avant il faudra lister les fichiers du répertoire. Il y a un exemple pour enumérer les fichiers dans un répertoires sur le site que je t'ai passé.

Le lien que tu ma donner et en anglai, et je ne comprend pas l'anglai, tu n'aurait pas le lien directe ?

As tu encore besoin de cette solution avec la progresse barre de RadPat ? Moi je te l'avais proposé parce que je pensais que tu voulais voir la copie d'un fichier.
14/01/2008, 11h33
koKoTis

A vrai dire je ne m'en ser que pour un script de la barre de progression, mais pour la copie avance je vérai plu tart si je le rajouterer, il faut déja que je puisse faire le script

Pour lister les fichiers d'un répertoire :

Code:

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 = '\\Scripts\\'")
For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next

Copier un fichier :

Code:

1
2
3
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\FSO\ScriptLog.txt" , "D:\Archive\", OverwriteExisting

Les deux ensemble avec un affichage des fichiers copiés :

Code:

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

Quane je teste:

Code:

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 = '\\Scripts\\'")
For Each objFile in colFiles
    Wscript.Echo objFile.Name 
Next

Je ne voie la liste des fichiers ni dans une fenêtre ni dans un fichier.txt, où est elle ?

14/01/2008, 12h34
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.

ok, merci encore ;)

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

Code:

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

14/01/2008, 12h45
ced600

Code:

objFile.Name

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

Code:

objFile.Path

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

Code:

objFile.Path & "\" & objFile.FileName & "." & objFile.Extension
14/01/2008, 12h52
koKoTis

oui, mais ou est le chemin du répertoire qui contien les fichiers à lister ?
14/01/2008, 12h53
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 :?
14/01/2008, 14h00
ced600

Code:

ExecQuery("Select * from CIM_DataFile where Path = '\\Ton_repertoire\\'")
14/01/2008, 14h04
koKoTis

le script ne fait toujours rien

il me renvoie une erreur:

Code:

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

14/01/2008, 14h11
ced600

cela fonctionne sans mettre de lettre de disque dur (d'ailleurs cela plante avec) et je crois que tu dois doubler tous les \\
14/01/2008, 14h15
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 ?
14/01/2008, 14h37
ced600

Citation:

Envoyé par 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 ?

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.

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:

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

14/01/2008, 14h46
ced600

Heu sans l'erreur je ne vais pas pouvoir t'aider :(
14/01/2008, 14h50
koKoTis

http://hebergement-images.voiloo.net...d964028d5d.jpg
14/01/2008, 15h06
ced600

Code:

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:

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

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:

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.

Fuseau horaire GMT +2. Il est actuellement 06h42.