f6077a6741
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4804 248e525c-4dfb-0310-94bc-949c084e9493
22 lines
671 B
Plaintext
22 lines
671 B
Plaintext
REM $Id: logship.vbs 3443 2008-02-01 15:56:18Z hardya $
|
|
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 |