Title

フォルダ名を取得します。取得されるものは、エクスプローラのタイトルバーに表示されるものと同じです。

構文
strTitle = Folder.Title
引数
戻値

CONST ssfDESKTOP = 0

DIM Shell = CREATEOLEOBJ(ssfDESKTOP)
DIM Folder = Shell.NameSpace(ssfDESKTOP)

PRINT Folder.Title
結果
デスクトップ

プログラム実行例

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

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