Const OverwriteExisting = ausrichten en
strUserName = InputBox („das username bitte eintragen: “, „username“)
strSourceFolder = „\ \ Bediener \ Anteil \ TestFolder“ 'sicherstellen \, dass dieser Weg beendet NICHT einen Gegenschrägstrich \
strSourceFile = „\ \ Bediener \ Anteil \ TestFile.txt“
strTargetFolder = „\ \ Bediener \ Anteil \“ u. strUserName u. „\ Faltblatt \“ 'sicherstellen Ende dieses Weges mit einem Gegenschrägstrich \ eses
objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
objFSO.CopyFile strSourceFile, strTargetFolder, OverwriteExisting
objFSO.CopyFolder strSourceFolder, strTargetFolder, OverwriteExisting
|