e881019ae0
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4807 248e525c-4dfb-0310-94bc-949c084e9493
22 lines
624 B
Plaintext
22 lines
624 B
Plaintext
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 |