Contents
- 構文
- bIsFileSystem = FolderItem.IsFileSystem
- 引数
- 戻値
プログラム実行例
ファイルシステムかどうか
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- CREATEOLEOBJ
- Shell.NameSpace
- Shell.Folder.Items
- Shell.FolderItems.Count
- Shell.FolderItems.Item
- Shell.FolderItem.IsFileSystem
- Shell.FolderItem.Name
この記事は役に立ちましたか？
