[ファイルの情報を取得する]

C:\Temp\text.txt の情報を取得します。

【ソースコード】
[tips0136.vbs]
Option Explicit
On Error Resume Next

Dim strFolderName   ' フォルダ名
Dim strFileName     ' ファイル名
Dim objShell        ' Shell オブジェクト
Dim objFolder       ' フォルダ情報
Dim objFile         ' ファイル情報

strFolderName = "C:\Temp"
strFileName = "Test.txt"

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    Set objFolder = objShell.NameSpace(strFolderName)
    Set objFile = objFolder.ParseName(strFileName)

    WScript.Echo "名前:" & objFile.Name & " (" & objFile.Path & ")"
    WScript.Echo "ファイルタイプ:" & objFile.Type
    WScript.Echo "親フォルダ名:" & objFile.Parent
    WScript.Echo "サイズ:" & objFile.Size
    WScript.Echo "更新日付:" & objFile.ModifyDate
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFolder = Nothing
Set objShell = Nothing

【実行結果】
C:\> cscript //NoLogo tips0136.vbs
名前:test.txt (C:\Temp\test.txt)
ファイルタイプ:テキスト ドキュメント
親フォルダ名:Temp
サイズ:7832
更新日付:2005/10/25 12:34:56