REM $Id$
const archive_source = "\\advweb\archivelogs"
const archive_dest = "\\advwb2.opcs-online.info\archivelogs"

CopyArchives archive_source,archive_dest

Sub CopyArchives(strSource, strDest)
	Dim fileSystem
	Dim fldrSource
	Dim fldrDest

	set fileSystem = createobject("Scripting.FileSystemObject")
	set fldrSource = fileSystem.GetFolder(strSource)
	set fldrDest = fileSystem.GetFolder(strDest)

	for each file in fldrSource.Files
		WScript.Echo "Looking at " & file.Name
		if not filesystem.FileExists(strDest & "\" & file.Name) then
			file.Copy (strDest & "\" & file.Name)
		end if
	next
End Sub