sample1.ats

来自「Script C被设计成一种解释执行的、C语言风格的脚本语言。它用来完成bat批」· ATS 代码 · 共 29 行

//like c, haha !
function ShowDriverType(string driver)
begin
	int type = 0;
	type = GetDriveType(driver);
	if ( type==0 ) messagebox(0, "Unknown disk!", driver, 0);
	if ( type==1 ) messagebox(0, "The root directory does not exist!", driver, 0);
	if ( type==2 ) messagebox(0, "The drive can be removed from the drive", driver, 0);
	if ( type==3 ) messagebox(0, "The disk cannot be removed from the drive", driver, 0);
	if ( type==4 ) messagebox(0, "The drive is a remote (network) drive", driver, 0);
	if ( type==5 ) messagebox(0, "The drive is a CD-ROM drive", driver, 0);
	if ( type==6 ) messagebox(0, "The drive is a RAM disk", driver, 0);
end


main
begin
//	Capture("d:\1.bmp");
	MessageBeep(-1);
	ShowDriverType("a:\");
	ShowDriverType("b:\");
	ShowDriverType("c:\");
	ShowDriverType("d:\");
	ShowDriverType("e:\");
	ShowDriverType("f:\");
	ShowDriverType("g:\");
	ShowDriverType("h:\");
//	CopyFile("c:\ats\samples\sample.ats", "d:\haha.ats", 1);
end