Const OverwriteExisting = Waar
strUserName = InputBox („te gaan gelieve de gebruikersbenaming in: “, „Gebruikersbenaming“)
strSourceFolder = „\ \ het server\ aandeel \ TestFolder“ 'zorgt ervoor deze weg NIET met backslash \ eindigt
strSourceFile = „\ \ server\ aandeel \ TestFile.txt“
strTargetFolder = „\ de omslag \“ & strUserName & „\ \“ \ van het server\ aandeel 'zorgt ervoor deze weg met backslash \ eindigt
Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
strSourceFile objFSO.CopyFile, strTargetFolder, OverwriteExisting
objFSO.CopyFolder strSourceFolder, strTargetFolder, OverwriteExisting
|