GetDetailsOfでファイルのプロパティを取得 OSや環境で番号が変わるからこのuwsで確認する。

GetDetailsOf.uws

Option Explicit

Dim objShell
objShell = CreateOleObj("Shell.Application")
DIM s_dir = GET_CUR_DIR
DIM s_fileNmae = "GetDetailsOf.uws"

DIM o_folder = objShell.NameSpace(s_dir)

DIM o_item = o_folder.ParseName(s_fileNmae)

DIM i, s
FOR i = 1 TO 400
  DIM s_columName = o_folder.GetDetailsOf(emptyparam, i)
  DIM s_value = o_folder.GetDetailsOf(o_item, i)
  s = s + i + " :" + s_columName + " = " + s_value + "<#CR>"
NEXT
SENDSTR(EXEC("NOTEPAD"),s)