dirlist.hsp

sample\basic\dirlist.hsp » Plain Format

	;	ディレクトリ一覧表示サンプル
	;	(入力したディレクトリに移動できます)
	;
	dirbuf=""
	sel=0
	ad=""
	objsize 200,24:pos 0,30
	listbox sel,200,dirbuf
	input ad
	button "ディレクトリ変更",*chg
*getdir
	color 255,255,255:boxf 0,0,640,24
	color 0,0,0:pos 0,0:mes "DIR="+dir_cur
	dirlist dirbuf,"*.*"
	objprm 0,dirbuf
	stop
*chg
	chdir ad
	if stat : dialog "ERROR!"
	goto *getdir