[VBS] Backup to Network Drive

VBS to backup to a network drive:

Option Explicit
Const start = "c:\users\yuri\files\"
Const dest = "\\Thor\Storage1\Backup\Yuri\"
Const logName = "\\Thor\Storage1\Backup\Yuri\"
Dim fso,Logg
Set fso = CreateObject("Scripting.FileSystemObject")
Set logg = fso.OpenTextFile(logName, 8, True)
logg.WriteLine vbNewLine & "Backup started @ " & Now()
DoWork start, dest, Now()
logg.WriteLine "Backup ended @ " & Now()

Sub DoWork(dir, dest, modDate)
Dim objFile, objDir
logg.WriteLine "DIR: " & dir
If Not fso.FolderExists(dir) Then
logg.WriteLine "Can't find the " & dir & " folder"
Exit Sub
End If

With fso.GetFolder(dir)
For Each objFile in.Files
if DateDiff("d", objFile.DateLastModified, modDate) = 0 Then
fso.CopyFile objfile,dest, True
'objFile.CopyFile dest, True
logg.WriteLine objFile.Name & ", Mod-Date: " & objFile.DateLastModified & ", copied to " & dest
End If
Next
For Each objDir in.SubFolders
DoWork objDir.Path, dest, modDate
Next
End With
End Sub


___             __ _
 | |_  _    |/ /__|_)
 | | |(/____|\ \_||_)