Discussion :

[koKoTis]

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 ?

[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à.

[koKoTis]

Bonjour et merci

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

Code :

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

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

[ced600]

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.

[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é

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

[koKoTis]

Merci pour ses explication

Je vai étudier ca cette nui je pensse


Eb attenadant, si je fait une simple copie:

Code :

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

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 ?

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

[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

[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
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 ?

[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 ?

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

[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

[RadPAT]

Salut,

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

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
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++

[koKoTis]

Merci pour cette barre de progression c'est parfait

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

[koKoTis]

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 :

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

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 ?

[ced600]

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.

[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

[ced600]

Pour lister les fichiers d'un répertoire :

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

Copier un fichier :

Code :

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

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 :

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

[koKoTis]

Quane je teste:

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 = '\\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 ?