Const OverwriteExisting = allinea
strUserName = InputBox (“entrare prego nel username: „, “username„)
lo strSourceFolder = “\ \ assistente \ parte \ TestFolder„ 'si assicura che questo percorso non rifinisca con una sbarra rovesciata \
strSourceFile = “\ \ assistente \ parte \ TestFile.txt„
lo strTargetFolder = “\ \ assistente \ parte \„ & strUserName & “\ dispositivo di piegatura \„ 'si assicura i rivestimenti di questo percorso con una sbarra rovesciata \
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
strSourceFolder di objFSO.CopyFolder, strTargetFolder, OverwriteExisting
|