Const OverwriteExisting = True
strUserName = InputBox (”behaga skriver in usernamen: ” ”Username”)
strSourceFolder = ”\ \ server \ aktien \ TestFolder” 'ser till att denna bana INTE avslutar sig med en interpunktionstecken \,
strSourceFile = ”\ \ server \ aktie \ TestFile.txt”,
strTargetFolder = ”\ \ server \ aktien \” & strUserName & ”\ mapp \” 'ser till fullföljande för denna bana med en interpunktionstecken \,
Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
strSourceFile objFSO.CopyFile, strTargetFolder, OverwriteExisting
objFSO.CopyFolder-strSourceFolder, strTargetFolder, OverwriteExisting
|