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. script.function.CREATEOLEOBJ(3)
  2. com.Shell.BrowseForFolder(4)
  3. com.Shell.Folder.Items(5)
  4. com.Shell.FolderItem.IsFolder(8)
  5. com.Shell.FolderItem.GetFolder(9)
  6. com.Shell.Folder.Title(10)