DECLARE INTEGER GetLogicalDriveStrings IN Win32API; INTEGER dwSize, STRING @lpBuffer lcbuffer = SPACE(130) lnsize = LEN(lcbuffer) IF GetLogicalDriveStrings(lnsize, @lcbuffer) > 0 lcbuffer = CHRTRAN(lcbuffer, CHR(0), CHR(13) + CHR(10)) DIMENSION a_drives[1] = ALINES(a_drives, lcbuffer) FOR lni = 1 TO ALEN(a_drives, 1) ? a_drives[lni] NEXT ELSE ? "No drives???" ENDIF