指定したフォルダ以下にあるすべてのサブフォルダのパスを取得する。
- 構文
- getSubFolders( var array[], folderspec )
- 引数
- var array
- folderspec
- 戻値
プログラム
//////////////////////////////////////////////////
// 【引数】
// var array
// folderspec
// 【戻値】
//
//////////////////////////////////////////////////
PROCEDURE getSubFolders(var array[], folderspec)
DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetFolder(folderspec)
DIM Folders = Folder.SubFolders
FOR Folder IN Folders
arrayPush(array, Folder.Path)
getSubFolders(array, Folder.Path)
NEXT
FEND
//////////////////////////////////////////////////
// 【引数】
// array : 要素を追加する配列(参照引数)
// str : 追加する要素
// 【戻値】
// 処理後の配列の中の要素の数
//////////////////////////////////////////////////
FUNCTION arrayPush(var arr[], str)
DIM res = RESIZE(arr, UBound(arr) + 1)
arr[res] = str
RESULT = res + 1
FEND
//////////////////////////////////////////////////
// 【引数】
// 配列 : 上限値を求める配列
// 【戻値】
// 配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(array[])
RESULT = RESIZE(array)
FEND