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

エクスプローラ（Explorer.exe）のファイル情報を取得しています。
プロパティウィンドウで表示されているような項目です。

【ソースコード】

[tips0084.vbs]
Option Explicit
On Error Resume Next

Dim objFSO      ' FileSystemObject
Dim objFile     ' ファイル名
Dim blnStatus   ' 属性

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If Err.Number = 0 Then
    Set objFile = objFSO.GetSpecialFolder(0).Files("explorer.exe")
    WScript.Echo "名前：" & objFile.Name
    WScript.Echo "ファイルタイプ：" & objFile.Type
    WScript.Echo "場所：" & objFile.ParentFolder
    WScript.Echo "サイズ：" & FormatNumber(objFile.Size, 0)
    WScript.Echo "作成日時：" & objFile.DateCreated
    WScript.Echo "更新日時：" & objFile.DateLastModified
    WScript.Echo "アクセス日時：" & objFile.DateLastAccessed
    WScript.Echo "属性："
    blnStatus = (objFile.Attributes And 1) <> 0
    WScript.Echo "　読み取り専用：" & blnStatus
    blnStatus = (objFile.Attributes And 2) <> 0
    WScript.Echo "　隠しファイル：" & blnStatus
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objFile = Nothing
Set objFSO = Nothing

【実行結果】

C:\> cscript //NoLogo tips0084.vbs
名前：explorer.exe
ファイルタイプ：アプリケーション
場所：C:\WINNT
サイズ：243,472
作成日時：2003/06/19 12:05:04
更新日時：2003/06/19 12:05:04
アクセス日時：2005/01/03 9:19:53
属性：
　読み取り専用：False
　隠しファイル：False