; stkfnc6テスト
	; ここは文字列の表記法も注目！
	"A:\\MCOMHELPに移ってDIR\n" PRINTS
	GETDRV
	0 CHDRV , ; 0=A:
	."\MCOMHELP" CHDIR ,
	0 "dir *.* -w" EXEC ,
	."\" CHDIR , ; ルートに戻す
	CHDRV , ; 元に戻す
	
	"TEST_STK" MKDIR IF
		"\aディレクトリが作れません\n" PRINTS
		END
	ENDIF
	
	0 "dir a:*.* > TEST_STK\\dir.dat" EXEC ,
	"TEST_STK\\dir.dat" "dir.tst" RENAME IF
		"ファイル名が変更できません\n" PRINTS
		END
	ENDIF

	"カレントの表示\n" PRINTS
	GETDRV 'Ａ' + PRINTC CRLF
	MAXPATH work STRING . GETDIR , PRINTS CRLF

	"カレントディスク空き容量：" PRINTS
	GETDRV DFREE PRINTN10 "バイト\n" PRINTS

	; FILES系
	MAXPATH mes STRING ,
	FILBUF fbuff STRING "*.stk" FA_ARCH FILES
	WHILE
		EL. BREAK ; FILES/NFILESが1を返している
			; ファイルが見つかっている間はループ
		mes . fbuff FILES.NAME PRINTS TAB
		fbuff FILES.DATE PRFDATE SPC
		fbuff FILES.TIME PRFTIME TAB
		fbuff FILES.ATRB 16 PRINTN SPC
		fbuff FILES.LEN PRINTN10 TAB
		CRLF
	fbuff NFILES
	WEND
	0 "dir *.stk -w" EXEC ,
	0 "dir TEST_STK\\*.*" EXEC ,
	
	"TEST_STK\\dir.tst" DELETE IF
		"ファイルが削除できません\n" PRINTS
		END
	ENDIF
	
	"TEST_STK" RMDIR IF
		"\aディレクトリが消せません\n" PRINTS
		END
	ENDIF
END
