IsFileSystem

構文
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
  1. CREATEOLEOBJ
  2. Shell.NameSpace
  3. Shell.Folder.Items
  4. Shell.FolderItems.Count
  5. Shell.FolderItems.Item
  6. Shell.FolderItem.IsFileSystem
  7. Shell.FolderItem.Name