- 構文
- 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
この記事は役に立ちましたか?