Discussion :

[qmike]

bonjour à tous
J' utilise la fonction Xcopy pour copier un dossier sur un autre endroit
Quelle est la fonction qui permet de lister les fichiers copiés
de me dire tel et tel fichier sont bien copier

voici mon code

Code :

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

1
2
3
4
5
Dim oShell : Set oShell = CreateObject("WScript.Shell")
 Set objFSO = CreateObject("Wscript.Shell")
oShell.Run "Dim oShell : Set oShell = CreateObject("WScript.Shell")
 Set objFSO = CreateObject("Wscript.Shell")
oShell.Run "%comspec% /c xcopy c:\TEST\  i:/e /k /p /i " "

le dossier est bien copié sur i:
j"ai tente la solution suivante:

Code :

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

1
2
3
4
 
Dim oShell : Set oShell = CreateObject("WScript.Shell")
 Set objFSO = CreateObject("Wscript.Shell")
oShell.Run "%comspec% c xcopy c:\TEST\ > i:/e /k /p /i \liste.txt"

mais j'ai le message suivante : accés refusé
merci pour vos réponses

[hackoofr]

Tu crées un dossier Sauvegarde sur le i:\ puis tu testes ce script et dis-moi le résultat

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy c:\test i:\sauvegarde /v /c /d /s /e /H /R /Y > ListeCopie.txt"
Resultat = oShell.Run(Command,0,True)

[qmike]

Bonjour
Un grand merci pour ta réponse

je viens de tester
Le fichier est bien crée mais j'ai le message suivant

avec le code suivant modifier pour correspondre a l'environnement du pc
(deux partitions : c: et e

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy c:\test i:\sauvegarde /v /c /d /s /e /H /R /Y > ListeCopie.txt"
Resultat = oShell.Run(Command,0,True)

st-ce que \c:\TEST sp‚cifie un nom de fichier
ou un nom de r‚pertoire de la destination
(F = fichier, R = r‚pertoire)ÿ?

Le fichier est crée et comprend le message suivant :

st-ce que \c:\TEST sp‚cifie un nom de fichier
ou un nom de r‚pertoire de la destination
(F = fichier, R = r‚pertoire)ÿ?

IL semble attendre une réponse
alors qu'il n'y a pas dans le code une demande de confirmation

Merci de ton aide

[qmike]

bonjour

j'ai essayer le code suivant

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy E:\PROCEDUREDEGRADE\DIFFUSION \c:\TEST /c  /s /i > ListeCopie.txt" 
Resultat = oShell.Run(Command,0,True)

en mettant /i afin d'éviter la question
Du coup, aucun fichier de copié
Merci de votre aide

[hackoofr]

bonjour
j'ai essayer le code suivant
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy E:\PROCEDUREDEGRADE\DIFFUSION \c:\TEST /c /s /i > ListeCopie.txt"
Resultat = oShell.Run(Command,0,True)

Pour une meilleure lisibilité de ton code il faut
e:\ ou bien i:\ représentent des disques amovibles ou non

[qmike]

bonjour
merci pour ta réponse

hélas, le fichier est bien crée avec le contenu suivant

0 fichier(s) copi‚(s)

et aucun fichier copié sous c:\TEST
merci pour votre aide

[hackoofr]

bonjour
merci pour ta réponse
hélas, le fichier est bien crée avec le contenu suivant
0 fichier(s) copi‚(s)
et aucun fichier copié sous c:\TEST
merci pour votre aide

copier coller le code que tu viens de l'exécuter avec le Pour le code c'est le bouton # en haut à droite de l'éditeur

[qmike]

merci pour ton message
voici le copier/coller

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy E:\PROCEDUREDEGRADE\DIFFUSION \c:\TEST /c /s /i > ListeCopie1.txt" 
Resultat = oShell.Run(Command,0,True)

[hackoofr]

Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy E:\PROCEDUREDEGRADE\DIFFUSION \ c:\TEST /c /s /i > ListeCopie1.txt"
Resultat = oShell.Run(Command,0,True)

Tu dois supprimer "\" qui est en plus et le code devient:

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
Command = "%comspec% /c xcopy E:\PROCEDUREDEGRADE\DIFFUSION c:\TEST /c /s /i > ListeCopie1.txt" 
Resultat = oShell.Run(Command,0,True)

[qmike]

Bonjour
Super
Cela fonctionne
Merci pour ta patience
et pour tous ces renseignements
Bonne soirée