UWSC辞典

構文

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//////////////////////////////////////////////////
// 【引数】
//   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