アプリケーションの更新日のタイムスタンプを取得したい。

Question

前提・実現したいこと

VBScriptでアプリケーションに紐づく情報を取得してファイルに出力したいです。

試したこと

VBScriptでアプリケーションのバージョン情報を取得したい
を参考に紐づく情報を取得しようとしたところ
GetDetailsOfメソッドが有効そうだったので、この第2引数に3を指定すれば更新日の情報が取得できるのではないかと以下を試しました。

ption Explicit
Dim OutputFileBase, fso, OutputFile
' ファイル名の取得
OutputFileBase = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "."))
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set OutputFile = fso.OpenTextFile(OutputFileBase & "txt", 2, True)

Const ColumnNo1 = 1
Const ColumnNo2 = 2
Const ColumnNo3 = 3
Const ColumnNo4 = 4

Dim itm 'As Shell32.FolderItem
For Each itm In shellFolder.Items()
    Dim ver1,ver2,ver3,ver4 'As String
    ver1 = shellFolder.GetDetailsOf(itm, ColumnNo1)
    ver2 = shellFolder.GetDetailsOf(itm, ColumnNo2)
    ver3 = shellFolder.GetDetailsOf(itm, ColumnNo3)
    ver4 = shellFolder.GetDetailsOf(itm, ColumnNo4)

    OutputFile.WriteLine(itm.Name)
    OutputFile.WriteLine(ver)
    OutputFile.WriteLine(ver1)
    OutputFile.WriteLine(ver2)
    OutputFile.WriteLine(ver3)
    OutputFile.WriteLine(ver4)
    OutputFile.WriteLine()
   
    If False Then
        'バージョン（ColumnNo）の番号確認用
        Dim buf 'As String
        Dim i 'As Long
        For i = 1 To 1000 '適当
            buf = shellFolder.GetDetailsOf(itm, i)
            If buf <> "" Then OutputFile.WriteLine(i)
            OutputFile.WriteLine(buf)
        Next 'i
        Exit For
    End If

Next 'itm

発生している問題・エラーメッセージ

このまま実行すると、OutputFile.WriteLine(ver2)のところで

プロシージャの呼び出し、または引数が不正です。

というエラーメッセージが出力されてしまいます。

試しにこの1行をコメントアウトして実行すると
上から
・名前（これはOutputFile.WriteLine(itm.Name)で出力しています。）
・アプリの制作元？
・サイズ
・バージョン情報
が表示されました。

なぜGetDetailsOfメソッドに書いてあることと違うことが出力されるのかはわかりませんが
おそらく2を指定したところでタイムスタンプが本来なら出力されるのではないかと思っています。

どなたかこのエラーの理由がわかる方、及びエラーを解消するすべがわかる方はおしえてください。
よろしくお願いします。

補足情報（FW/ツールのバージョンなど）

Windows
VBScript

Answer 1

（質問のコードはそのままだと動かないのですが……）

エラーの理由

出力結果にShift_JISで表現出来ない文字（U+200E）が含まれるため。

エラーの解消

fso.OpenTextFile()の第4引数にTristateTrue（数字で言うと-1、Trueでも可）を指定してUnicodeで出力させるようにする。

---

以下補足。

おそらく2を指定したところでタイムスタンプが本来なら出力されるのではないかと思っています。

前回の質問の私の回答の以下の部分を動くようにするとわかる思いますが、2でタイムスタンプらしきものが出力されるという予想は正しいです。

            'バージョン（VersionColumnNo）の番号確認用
            Dim buf 'As String
            Dim i 'As Long
            For i = 1 To 1000 '適当
                buf = shellFolder.GetDetailsOf(itm, i)
                If buf <> "" Then WSH.Echo i, buf
            Next 'i
            Exit For

また、VBScript単体ではデバッグが難しいため、MS Officeを使えるのならVBAのエディタなども併用することをお勧めします（前回の私の回答も、VBAで動くことを確認し、VBScript用に細部調整、という流れで作っています）。

Comments

[moshi]

回答ありがとうございます。エラーの理由から解決方法まで丁寧に説明してくださったおかげで解消されました！質問内容に対してはベストアンサーにさせていただきますが1点質問があります。
出力はできたのですが、現在表示されたものは「‎2018/‎11/‎12」のように時間の情報が入りませんでした。この関数では日付までしか取得ができないですか？

VBAエディタのことを調べました。こんなものがあったのですね、知りませんでした。ありがとうございます。

[imihito]

`GetDetailsOf`の返り値の型が文字列である以上、表示されている以上の情報はわからないですね。

他の手段としてWMIも試しましたが、速度の割に情報量はそこまで変わらない感じでした。

それ以外の方法としては、レジストリを調べる・`GetDetailsOf`で保存先らしきものが取得できるのでその中の古いファイル・フォルダを探す、などでしょうか