cl_dirlist.hsp

sample\hspcl\cl_dirlist.hsp » Plain Format

#runtime "hsp3cl"

	a="Console HSP Test"
	mes "["+a+"]"

	dirlist buf,"*.*",1
	notesel buf

	mes "カレントディレクトリの内容("+notemax+"ファイル):"

	repeat notemax
	noteget fname,cnt
	mes ""+cnt+":"+fname
	loop

	;notesave "dir.txt"

	stop