2008/10/16(Thu) 21:47:26 編集(投稿者)
2008/10/16(Thu) 21:47:15 編集(投稿者)
2008/10/16(Thu) 21:47:01 編集(投稿者)
<pre><pre>下記方法にて実現可能。
■VBScript
<?xml version="1.0" encoding="Shift_JIS" standalone="yes" ?>
- <package>
- <job id="MyBackUp">
<?job error="true" debug="true" ?>
<object id="objFs" progid="Scripting.FileSystemObject" />
<resource id="backup_config">C:\DISKTEST
</resource>
- <script language="VBScript">
- <![CDATA[
On Error Resume Next
Const MYFLD="F:\BK"
aryCnf=Split(getResource("backup_config"),Chr(13) & Chr(10))
For i=0 To UBound(aryCnf)
strPth=Trim(aryCnf(i))
If Not IsNull(strPth) And strPth<>"" Then
strDst=objFs.BuildPath(MYFLD,FormatDateTime(Date,1))
If Not objFs.FolderExists(strDst) Then objFs.CreateFolder(strDst)
aryDst=Split(Right(strPth,Len(strPth)-InStrRev(strPth,":")+1),"\")
For j=1 To UBound(aryDst)
strDst=objFs.BuildPath(strDst,aryDst(j))
If Not objFs.FolderExists(strDst) Then objFs.CreateFolder(strDst)
Next
objFs.CopyFolder objFs.BuildPath(strPth,"*"),strDst,True
objFs.CopyFile objFs.BuildPath(strPth,"*"),strDst,True
End If
Next
WScript.Echo("バックアップ処理が完了しました。")
]]>
</script>
</job>
</package>
上記PGMをBackUp.wsfとしてタスクスケジューラに設定
</pre></pre>