GETDIR関数

文字	意味
*	0文字以上の任意の文字列
?	任意の1文字

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(filenames, QSRT_NATURALA, sizes, createTimes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(filenames, QSRT_NATURALD, sizes, createTimes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(sizes, QSRT_NATURALA, filenames, createTimes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(sizes, QSRT_NATURALD, filenames, createTimes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(createTimes, QSRT_NATURALA, filenames, sizes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(createTimes, QSRT_NATURALD, filenames, sizes, updateTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(updateTimes, QSRT_NATURALA, filenames, sizes, createTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(updateTimes, QSRT_NATURALD, filenames, sizes, createTimes, accessTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(accessTimes, QSRT_NATURALA, filenames, sizes, createTimes, updateTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM folderspec = "D:\Desktop\"
DIM filenames[-1]
DIM sizes[-1]
DIM createTimes[-1]
DIM updateTimes[-1]
DIM accessTimes[-1]

FOR filename IN GETDIR(folderspec)
	arrayPush(filenames, filename)
	WITH FSO.GetFile(folderspec + filename)
		arrayPush(sizes, .Size)
		arrayPush(createTimes, .DateCreated)
		arrayPush(updateTimes, .DateLastModified)
		arrayPush(accessTimes, .DateLastAccessed)
	ENDWITH
NEXT

QSORT(accessTimes, QSRT_NATURALD, filenames, sizes, createTimes, updateTimes)

FOR i = 0 TO UBound(filenames)
	PRINT filenames[i] + "," + sizes[i] + "," + createTimes[i] + "," + updateTimes[i] + "," + accessTimes[i]
NEXT

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

DIM array[-1]
DIM folderspec = "D:\Desktop\"
DIM files[] = "*.txt", "*.js"

FOR file IN files
	GETDIR(folderspec, file)
	arrayMerge(array, GETDIR_FILES)
NEXT

QSORT(array, QSRT_NATURALA)

FOR item IN array
	PRINT item
NEXT

//////////////////////////////////////////////////
// 【引数】
//   arr : 追加される配列（参照引数）
//   tmp : 追加する配列
// 【戻り値】
//   追加した後の配列の要素数
//////////////////////////////////////////////////
FUNCTION arrayMerge(Var arr[], tmp[])
	FOR n = 0 TO UBound(tmp)
		arrayPush(arr, tmp[n])
	NEXT
	RESULT = UBound(arr)
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

GETDIRゲットディレクトリー関数

引数

取得順番

配列変数

ファイル指定

取得順番

ファイル名昇順

ファイル名降順

サイズ昇順

サイズ降順

作成日時昇順

作成日時降順

更新日時昇順

更新日時降順

アクセス日時昇順

アクセス日時降順

複数の条件指定

使い方

プログラム実行例

指定フォルダのJPEGファイル名を出力

指定フォルダにあるディレクトリを出力

不可視ファイルの数を取得する

デスクトップにあるフォルダ一覧を取得

デスクトップのファイル名一覧を取得・出力する

関連記事

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

GETDIRゲットディレクトリー関数

引数

取得順番

配列変数

ファイル指定

取得順番

ファイル名 昇順

ファイル名 降順

サイズ 昇順

サイズ 降順

作成日時 昇順

作成日時 降順

更新日時 昇順

更新日時 降順

アクセス日時 昇順

アクセス日時 降順

複数の条件指定

使い方

プログラム実行例

指定フォルダのJPEGファイル名を出力

指定フォルダにあるディレクトリを出力

不可視ファイルの数を取得する

デスクトップにあるフォルダ一覧を取得

デスクトップのファイル名一覧を取得・出力する

関連記事

検索フォーム

設定

最近の投稿・更新

関連記事

タグ一覧

このページを共有する

寄付・支援

ファイル名昇順

ファイル名降順

サイズ昇順

サイズ降順

作成日時昇順

作成日時降順

更新日時昇順

更新日時降順

アクセス日時昇順

アクセス日時降順