VBSの条件分岐分のエラーについて

Question

条件分岐を使って、Desktopにあるtest.txtの更新時刻と、今の時間を比較して、
60秒以内の時間差なら成功、60秒以上なら失敗というメッセージボックスを表示するScriptを作成しました。

Sub Sample()
t1 = filedatetime("C:\Users\PC\Desktop\test.txt")
t2 = now()
t3 = t2 - t1
t4 = hour(t3) * 3600 + Minute(t3)* 60 + second(t3)
if t4 > 60 then
msgbox "失敗"
else
msgbox "成功"
end if
End Sub

これを実行すると、下図のようなエラーが出てします。
エラー内容を調べてみましたが、どこを直せばいいのかがわからないので教えていただけますでしょうか。

Answer 1

VBSのファイルがUTF-8になっていると思います。
SHIFT-JISで保存しなおしてください。

Comments

[kst02w]

ご回答ありがとうございます。
SHIFT-JISに変更したら無事エラーが解消されました。
が、実行結果のメッセージボックスが出てこないのですが、
これはScriptの記述がどこか間違えているのでしょうか？

[jinoji]

問題は2点。
まず、Sample というSubモジュールを呼び出す記述がありません。
1行目に、 Call Sample　とでも書いてください。

次に、filedatetime という Function を定義する記述がありません。
VBScriptにそういう関数が備わっているわけではないので、
自分で記述する必要があると思います。

[stdio]

【補正】
一番上のSub Sample()と一番下のEnd Subを消しても動くと思います。

filedatetimeに関しましては、同名のこちらの関数と間違えていないでしょうか？
こちらなら何もインクルードせずとも動くと思います。
https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/filedatetime-function

[jinoji]

stdioさん、補正ありがとうございます。

[kst02w]

ご回答ありがとうございます。
Sub Sample()とEnd Subを消した状態で実行すると、下記のエラーが表示されます。

行：1
文字：1
エラー：型が一致しません。"filedatetime"
コード：800A000D
ソース：Microsoft VBScript 実行時エラー

記述の仕方はこれであっておりますでしょうか？
t1 = filedatetime("C:\Users\MAC\Desktop\test.txt")
t2 = now()
t3 = t2 - t1
t4 = hour(t3) * 3600 + Minute(t3)* 60 + second(t3)
if t4 > 60 then
msgbox "失敗"
else
msgbox "成功"
end if

[jinoji]

その後ろに以下の記述を追加したらいいと思います。（VBSの時のみ）

Function FileDateTime(fn)
FileDateTime = CreateObject("Scripting.FileSystemObject").GetFile(fn).DateLastModified
End Function