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. 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)