元々、データのバックアップを取るためのVBSがあり、そのVBSを実行したときに、
成功か失敗かをMessageBoxに表示させたいと思っています。
具体的な処理の流れは以下のようになると想定しているのですが、
ネットで情報を調べてもどのように記述すればよいかがわからず手詰まりの状況です。
フロー例
①BackupのVBSを実行
②ファイルの更新日時を取得 ※対象のファイルが更新されたかを確認
③現在時刻を取得
④現在日時とファイルの更新日時を比較
⑤2つの時間の間隔が1分以上だった場合はエラー表示
⑥2つの時間の間隔が1分以内だった場合は成功表示
何が分からないのでしょうか。
フローの例の部分をコード化すればいいだけでは?
フローのコード化の部分が全く初めての為、下記の状態で詰まってしまっております。
①~③までは、下記のように書いてみました。
②、③を比較するところが下記のサイトでできると思って試してみているのですが、
具体的な記述をどのようにすればいいのかが全く分からなくなってしまっている状況になります。
https://www.kanaya440.com/contents/script/vbs/function/date/date_diff.html
------------------
①BackupのVBSを実行※ここは手動で実行します。
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.run "cmd.exe /c c:\zPO\zPO_Bak.bat", 7
②ファイルの時間を取得
Dim fs
Dim fn
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set fn = fs.GetFile("C:\Users\PC1\Desktop\test.txt")
③今の時間を取得
strNow = Now
------------------
あなたの回答
tips
プレビュー