GOG.com版Torchlightの終了時に、自動でセーブデータをバックアップするVBScriptです。
ZIPファイルは以下のSkyDriveからどうぞ。
https://skydrive.live.com/redir?resid=1677B34824353C02!150
※日付の処理の問題で、午前0～9時台の動作で桁が揃うように修正しました。(2013/07/03)
' Torchlight1_Savedata_Backup ver.20130703674
' Torchlightのセーブデータを、ゲーム終了時にバックアップしておくためのスクリプトです。
' このスクリプトは、GOG.com版Torchlight向けに作られており、
' セーブデータの場所は
' [ドライブ名]:\Users\[ユーザー名]\AppData\Roaming\runic games\torchlight\save
' を想定しています。
' GOG.com版Torchlight用のインストール先は
' C:\Program Files (x86)\GOG.com\Torchlight\Torchlight.exe
' を想定しています。
' それぞれ、場所が異なる場合は手直しが必要です。(Windows7/64bitを想定しています)
' 動作の仕組みは、
' 1.ユーザーがこのスクリプトを起動する
' 2.スクリプトがTorchlightを起動する
' 3.ユーザーがTorchlightを(遊んだあとに、)終了する
' 4.スクリプトがTorchlightの終了を検知し、セーブデータを別のフォルダへバックアップする
' となっています。
' ユーザーの動作で、これまでと異なる部分は、Torchlightを起動する代わりに
' このスクリプトを起動させることです。
' Torchlightの起動とセーブデータのバックアップは、このスクリプトが担当します。
' セーブデータのバックアップは、このスクリプトと同じフォルダに
' その時の日時のフォルダ名で保存されます。
' (2013年7月1日12時34分56秒なら、フォルダ名は「20130701_123456」になります)
' 設定変更が必要な場合、ここから ---
' Torchlightのセーブデータの場所(ユーザープロファイルフォルダ内)
sT1save = "\AppData\Roaming\runic games\torchlight\save"
' Torchlightのインストール先
sT1exe = """C:\Program Files (x86)\GOG.com\Torchlight\Torchlight.exe"""
' 設定変更が必要な場合、ここまで ---
Set oWSh = WScript.CreateObject("WScript.Shell")
' ユーザープロファイルフォルダの取得
sUsername = oWSh.ExpandEnvironmentStrings("%USERPROFILE%")
' Torchlightを起動、Torchlight終了までスクリプトは待機する
oWSh.Run sT1exe, , true
' Torchlightを終了すると、スクリプトは再開する
' 現在の日時から、バックアップ用フォルダの名前を生成する
aDate = Split(Date, "/")
aTime = Split(Time, ":")
For ii = 0 To UBound(aTime)
sBackupDir = sBackupDir & aTime(ii)
Next
If Len(sBackupDir) = 5 Then sBackupDir = "0" & sBackupDir
sBackupDir = "_" & sBackupDir
For ii = UBound(aDate) To 0 Step -1
sBackupDir = aDate(ii) & sBackupDir
Next
' セーブデータのフォルダをバックアップする
Set oFs = CreateObject("Scripting.FileSystemObject")
oFs.CopyFolder sUsername & sT1save, sBackupDir
' 確認メッセージが必要な場合はご利用ください
'MsgBox "Torchlightのセーブデータを、" & vbNewLine & sBackupDir & " に" & vbNewLine & "バックアップしました。", , "Torchlight1_Savedata_Backup"
