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

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