Const OverwriteExisting = rectifient
strUserName = InputBox (« écrire svp l'username : », « username »)
le strSourceFolder = « \ \ serveur \ part \ TestFolder » 's'assurent que ce chemin ne finit pas avec une barre oblique inverse \
strSourceFile = « \ \ serveur \ part \ TestFile.txt »
le strTargetFolder = « \ \ serveur \ part \ » et strUserName et « \ chemise \ » 's'assurent des finitions de ce chemin avec une barre oblique inverse \
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
strSourceFolder d'objFSO.CopyFolder, strTargetFolder, OverwriteExisting
|