//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