showSubFolders

構文
showSubFolders( path )
引数
path
指定したフォルダ以下にあるサブフォルダを取得
戻値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   path : 指定したフォルダ以下にあるサブフォルダを取得 
// 【戻値】
// 
//////////////////////////////////////////////////
PROCEDURE showSubFolders(path)
	DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
	DIM Folder = FSO.GetFolder(path).SubFolders

	FOR n = 0 TO GETOLEITEM(Folder) - 1
		PRINT ALL_OLE_ITEM[n].Path
		showSubFolders(ALL_OLE_ITEM[n].Path)
	NEXT
FEND