DIMENSION laDrives[1,2] lnDriveCount = 0 FOR i=ASC("A") TO ASC("Z") lnDriveType = DRIVETYPE(CHR(i)) DO CASE CASE lnDriveType = 2 lcDriveType = "Floppy" CASE lnDriveType = 3 lcDriveType = "Local HD" CASE lnDriveType = 4 lcDriveType = "Removable/Network" CASE lnDriveType = 5 lcDriveType = "CD-ROM" OTHERWISE lcDriveType = "" ENDCASE IF NOT EMPTY(lcDriveType) lnDriveCount = lnDriveCount + 1 DIMENSION laDrives[lnDriveCount,2] laDrives[lnDriveCount,1] = CHR(i) laDrives[lnDriveCount,2] = lcDriveType ENDIF ENDFOR