Const OverwriteExisting = verdad
strUserName = InputBox (“incorporar por favor el username: ”, “username”)
el strSourceFolder = “\ \ servidor \ parte \ TestFolder” 'se cerciora de que esta trayectoria no acabe con una barra \
strSourceFile = “\ \ servidor \ parte \ TestFile.txt”
el strTargetFolder = “\ \ servidor \ parte \” y strUserName y “\ carpeta \” 'se cerciora de finales de esta trayectoria con una barra \
Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
strSourceFolder de objFSO.CopyFolder, strTargetFolder, OverwriteExisting
|