#DEFINE DRIVE_UNKNOWN 0 #DEFINE DRIVE_NO_ROOT_DIR 1 #DEFINE DRIVE_REMOVABLE 2 #DEFINE DRIVE_FIXED 3 #DEFINE DRIVE_REMOTE 4 #DEFINE DRIVE_CDROM 5 #DEFINE DRIVE_RAMDISK 6 LOCAL lcPom,liy,liy DECLARE INTEGER GetDriveType IN kernel32 String lpszRootPathName DECLARE INTEGER GetLogicalDriveStrings IN kernel32 integer,String @ lcpom=SPACE(254) && Set buffer =GetLogicalDriveStrings(LEN(lcpom),@lcpom) && Read all known HDD, etc. lcpom=ALLT(lcpom) lcpom=LEFT(lcpom,LEN(lcpom)-1) && remove \0 char FOR lii=OCCURS(CHR(0),lcpom) TO 1 STEP -1 lcDRV=SUBS(lcpom,AT(CHR(0),lcpom,lii)-3,3) IF INLIST(GetDriveType(lcDRV),DRIVE_REMOVABLE,DRIVE_FIXED) ?lcDRV ENDIF NEXTMartiJ