for ix = 1 to 26 ? chr(ASC("A")-1+ix)+":",cDriveType(chr(ASC("A")-1+ix)) endfor function cDriveType lparameters cDriveLetter local aDrvTypes dimension aDrvTypes[7] aDrvTypes[1]="CANNOT_DETERMINE" aDrvTypes[2]="INVALID_DRIVE" aDrvTypes[3]="DRIVE_REMOVABLE" aDrvTypes[4]="DRIVE_FIXED" aDrvTypes[5]="DRIVE_REMOTE" aDrvTypes[6]="DRIVE_CDROM" aDrvTypes[7]="DRIVE_RAMDISK" DECLARE integer GetDriveType in WIN32API string @cDrvLetter cDriveLetter = left(cDriveLetter,1)+":\" return aDrvTypes(GetDriveType(@cDriveLetter)+1)Cetin