GetFolder

FolderItemオブジェクトがフォルダの場合、Folderオブジェクトを返します。

構文
Folder = FolderItem.GetFolder
引数
戻値

プログラム実行例

選択したフォルダ内のサブフォルダを取得

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.BrowseForFolder(0, "フォルダを選択", 0, ssfDesktop)
DIM FolderItems = Folder.Items

FOR FolderItem IN FolderItems
	IFB FolderItem.IsFolder THEN
		Folder = FolderItem.GetFolder
		PRINT Folder.Title
	ENDIF
NEXT
  1. CREATEOLEOBJ
  2. Shell.BrowseForFolder
  3. Shell.Folder.Items
  4. Shell.FolderItem.IsFolder
  5. Shell.FolderItem.GetFolder
  6. Shell.Folder.Title