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

この記事は役に立ちましたか?
役に立った 役に立たなかった