Notes

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

======Versie 3======
<code vb>
'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

</code>