Deconnecter le lecteur réseau après copie des fichiers
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:
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
