test | Codetter（こーどったー）

//HSP
sdim folder,1024
dim num,2//繰り返し変数
dim files,20//フォルダー20個分の配列
dim ftja,20//tjaのありか20箇所分
dim tja,500//tjaファイル500個分の配列
dim data,20//tjaファイル500個分の配列
dim tjaf,500

dirlist folder,"*",5
num(0) = stat

split folder,"\n",files//20フォルダー分代入

repeat num(0)
dirlist ftja(cnt),files(cnt)+"/*.tja",1//*.tja部分を好きな拡張子に変更してください。
ind(cnt) = stat
loop

repeat num(0)
num(1) = num(1) + ind(cnt)
loop

repeat num(0);num(0)
if strlen(ftja(cnt)) > 7 {
	data(count) = ftja(cnt)
	count++
}
loop

repeat count
tjas =tjas+data(counts)
counts++
loop
dialog tjas//検索結果
;split tjas,"\n",tjaf//分割する場合はコメントアウト