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. script.function.CREATEOLEOBJ(1)
  2. com.Shell.NameSpace(2)
  3. com.Shell.Folder.Items(3)
  4. com.Shell.FolderItems.Count(5)
  5. com.Shell.FolderItems.Item(6)
  6. com.Shell.FolderItem.IsFileSystem(8)
  7. com.Shell.FolderItem.Name(8)