Const OverwriteExisting = True
strUserName = InputBox («пожалуйста впишите username: », «Username»)
strSourceFolder = «\ \ сервер \ доля \ TestFolder» 'делает конечно этот курс не заканчивает с зазор \
strSourceFile = «\ \ сервер \ доля \ TestFile.txt»
strTargetFolder = «\ \ сервер \ доля \» & strUserName & «\ скоросшиватель \» 'делает конечно отделки этого курса с зазор \
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
strSourceFolder objFSO.CopyFolder, strTargetFolder, OverwriteExisting
|