ファイル情報取得
フィールド名
Global_Script
Global_ER
値
'ファイル情報取得
Option Explicit
Dim fso, F
Set fso = CreateObject("Scripting.FileSystemObject")
Set F = fso.GetFile("%FILEPATH%")
-
If [IsEmpty ( file_Property::情報を取得するファイルのパス ) ≠ 1]
フィールド設定 [Script::Global_ER; iiil_Create( "vbscript" )/* vbscript or jscript、空欄=破棄 */]
変数を設定 [$Script; 値:Substitute ( Script::Global_Script ; "%FILEPATH%" ; file_Property::情報を取得するファイルのパス )]
フィールド設定 [Script::Global_ER; iiil_Exe( $Script )/* 戻り値なしのスクリプト */]
フィールド設定 [file_Property::ファイル名; iiil_eval( "F.Name" )/* 値を取得 */]
フィールド設定 [file_Property::パス; iiil_eval( "F.Path" )/* 値を取得 */]
フィールド設定 [file_Property::サイズ; iiil_eval( "F.Size" )/* 値を取得 */]
フィールド設定 [file_Property::種類; iiil_eval( "F.Type" )/* 値を取得 */]
フィールド設定 [file_Property::属性; iiil_eval( "F.Attributes" )/* 値を取得 */]
フィールド設定 [file_Property::作成日; iiil_eval( "F.DateCreated" )/* 値を取得 */]
フィールド設定 [file_Property::最終アクセス日; iiil_eval( "F.DateLastAccessed" )/* 値を取得 */]
フィールド設定 [file_Property::最終更新日; iiil_eval( "F.DateLastModified" )/* 値を取得 */]
フィールド設定 [Script::Global_ER; iiil_Create( "" )/* vbscript or jscript、空欄=破棄 */]
End If
▼「ファイル情報を取得」サンプルテンプレート
file_Property.fp7