Versie 3

'Voor het kopiëren van bestanden van een remote share naar lokaal.
'Start dit in een scheduled task die met de juiste credentials gestart word.
'20080124, v1
'20080515, v2, nu met function.
'20090405, v3, functie aanroep aangepast en set object commando buiten de functie gezet.
 
On Error Resume Next
 
'Definieer constanten
CONST overwrite = True
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
 
Function CopyFromShare(remoteDirectory, localDirectory)
 
	objNetwork.MapNetworkDrive "", remoteDirectory
 
	Set WerkFolder = objFso.GetFolder(remoteDirectory)
 
	For Each file in WerkFolder.Files
 
			objFso.CopyFile remoteDirectory & "\" & file.name, localDirectory & "\", overwrite
 
	Next
 
End Function
 
CopyFromShare "\\server.domein.nl\Backup", "E:\Backup\Servernaam"
 
'Cleanup
Set WerkFolder = Nothing
Set objNetwork = Nothing
Set objFso = Nothing