getSubFolders関数

本ページには広告が含まれています。

指定したフォルダ以下にあるすべてのサブフォルダのパスを取得する。

構文: getSubFolders( array, folderspec )

引数

array 省略可: 取得したフォルダのパスを格納する配列
folderspec 省略可: フォルダのパス

戻り値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   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 : 要素を追加する配列（参照引数）
//   values : 追加する要素をvalue1から指定
// 【戻り値】
//   処理後の配列の要素の数
//////////////////////////////////////////////////
FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
    DIM i = 1
    WHILE EVAL("value" + i) <> EMPTY
	  DIM res = RESIZE(array, UBound(array) + 1)
	  array[res] = EVAL("value" + i)
	  i = i + 1
	WEND
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列
//   multiplier : inputsを繰り返す回数
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前
//   dimension : 返す次元を示す整数
// 【戻り値】
//   配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND

Shell.Explore メソッド: 指定したディレクトリをエクスプローラで開きます。
Folder オブジェクト: シェルフォルダを表します。
Folder.CopyHere メソッド (Shell): 1つまたは複数のアイテムをフォルダにコピーします。
Folder.GetDetailsOf メソッド (Shell): フォルダ内のアイテムに関する詳細を取得します。
Folder.MoveHere メソッド (Shell): 1つまたは複数のアイテムをこのフォルダに移動します。
Folder.ParseName メソッド (Shell): 指定されたアイテムのFolderItem オブジェクトを作成して返します。
Folder.ParentFolder プロパティ (Shell): 指定したフォルダの親のFolder オブジェクトを返します。
FileSystemObject オブジェクト
Folder オブジェクト
Folder オブジェクト: フォルダのすべてのプロパティにアクセスできます。

getSubFolders関数

プログラム

関連記事

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援