Contents
アイテムの名前を設定または取得します。
- 構文
- strName = FolderItem.Name
- 引数
- 戻り値
- 指定したアイテムの名前
FolderItem オブジェクトを返す可能性のあるメソッド・プロパティ
プログラム実行例
デスクトップのファイル一覧
CONST ssfDESKTOP = 0
HASHTBL iColumn
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDESKTOP)
DIM FolderItems = Folder.Items
FOR n = 0 TO 350
iColumn[Folder.GetDetailsOf(EMPTYPARAM, n)] = n
NEXT
FOR n = 0 TO FolderItems.Count - 1
DIM FolderItem = FolderItems.Item(n)
WITH FolderItem
PRINT .Name
PRINT .Size + " Byte"
PRINT .Type
ENDWITH
PRINT "-----"
NEXT- CREATEOLEOBJ
- Shell.NameSpace
- Shell.Folder.Items
- Shell.Folder.GetDetailsOf
- Shell.FolderItems.Count
- Shell.FolderItems.Item
- Shell.FolderItem
- Shell.FolderItem.Name
- Shell.FolderItem.Size
- Shell.FolderItem.Type
指定したディレクトリ内のフォルダ・ファイル情報を取得
CONST ssfDesktop = 0
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.BrowseForFolder(0, "フォルダを選択してください。", 0, ssfDesktop)
FOR n = 0 TO Folder.Items.Count - 1
DIM FolderItem = Folder.Items.Item(n)
WITH FolderItem
PRINT "名前<#TAB><#TAB>" + .Name
PRINT "サイズ<#TAB><#TAB>" + .Size + " Byte"
PRINT "更新日時<#TAB>" + .ModifyDate
PRINT "パス<#TAB><#TAB>" + .Path
PRINT "種類<#TAB><#TAB>" + .Type
ENDWITH
PRINT "----------"
NEXT- CREATEOLEOBJ
- Shell.BrowseForFolder
- Shell.Folder.Items
- Shell.FolderItems.Count
- Shell.FolderItems.Item
- Shell.FolderItem.Name
- Shell.FolderItem.Size
- Shell.FolderItem.ModifyDate
- Shell.FolderItem.Path
- Shell.FolderItem.Type
ファイルシステムかどうか
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace("C:\Windows")
DIM FolderItems = Folder.Items
FOR n = 0 TO FolderItems.Count - 1
DIM FolderItem = FolderItems.Item(n)
WITH FolderItem
PRINT .IsFileSystem + "<#TAB>" + .Name
ENDWITH
NEXT