Discussion :

[qmike]

Bonjour
avec la code suivant
je copie sur un lecteur Réseau des fichiers (y)
Comment peux-tu lorsque la copie est terminée
Enlever ce lecteur
J'ai testé ceci sans succes

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
18
19
20
 
 
set fso = CreateObject("Scripting.FileSystemObject")
set shl = CreateObject("wscript.shell")
call MappageLecteur
shl.run "command /c xcopy/s E:\TEST y:\TEST\ <r-file.txt > LogTEST.txt"
call SupMappageLecteur
 
sub SupMappageLecteur
  Dim WshNetwork
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    WshNetwork.RemoveNetworkDrive "Y:"
End Sub
 
Sub MappageLecteur
    Set Net = CreateObject("WScript.Network")  
    Dim WshNetwork
    Set objNetwork = CreateObject("WScript.Network") 
    objNetwork.MapNetworkDrive "Y:", "\\PCTEST\C$\TEST"
End Sub

Le mappage se fait bien
La copie s'effectue uniquement si j'enleve le call SupMappageLecteur
En revanche, si le laisse le call SupMappageLecteur
Les fichiers ne sont pas copiés et le Lecteur réseau reste connecté
Merci pour vos réponses

[hariman]

Bonjour,

Par défaut, quand on lance une commande par shl.run(), l'exécution du script continue après ce lancement.

Par contre, tu peux mettre le 3e paramètre de shl.run() à "true" pour que le script ne continue que quand l'exécution de la commande soit terminé.

Code :

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

1
2
3
'...
shl.run "command /c xcopy/s E:\TEST y:\TEST\ <r-file.txt > LogTEST.txt", 1, TRUE
'...

[qmike]

Bonjour
Un grand merci pour cette information
En effet, cela fonctionne désormais

J'ai mets donc ce post en résolu et j'ai voté

Bonne Journée
Mike