Const OverwriteExisting = retifica
strUserName = InputBox (“incorporar por favor o username: ”, “username”)
o strSourceFolder = “\ \ usuário \ parte \ TestFolder” 'certifica-se que este trajeto não termina com um backslash \
strSourceFile = “\ \ usuário \ parte \ TestFile.txt”
o strTargetFolder = “\ \ usuário \ parte \” & strUserName & “\ dobrador \” 'certifica-se de revestimentos deste trajeto com um backslash \
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
strSourceFolder de objFSO.CopyFolder, strTargetFolder, OverwriteExisting
|