Moved from andy/shelves to main WebMIP documentation area.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@6472 248e525c-4dfb-0310-94bc-949c084e9493

Documentation/SupportingDocumentation/DatabaseScripts/Copy of advwb1_logship.vbs

@@ -0,0 +1,22 @@
+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