ソースコードの保存なので、更新された最新ファイルのみを対象とする為、
XCOPY を使って、サブディレクトリも全て保存します

@DIV
Set WshShell = Wscript.CreateObject( "WScript.Shell" )

Call SrcBackup( "batch", "g:", "source" )
Call SrcBackup( "main", "g:\Webhost", "source" )
Call SrcBackup( "admin", "g:\Webhost", "source" )
Call SrcBackup( "misc", "g:\Webhost", "source" )

Function SrcBackup( target, location, save_location )

	ExecCommand = "cmd.exe /C ""xcopy.exe """ & location & "\" & target & """ """ & save_location & "\" & target & "\"" /D /E /C /S /Y"""
	Call WshShell.Run( ExecCommand, , True )

End Function
@END

上記処理ですと完全バッチですが、
PC の前で確認したい場合は、コマンドの最後に " & PAUSE" を追加します

@DIV
ExecCommand = "cmd.exe /C ""xcopy.exe """ & location & "\" & target & """ """ & save_location & "\" & target & "\"" /D /E /C /S /Y & PAUSE"""
@END