Declare Integer GetLogicalDrives In win32API Declare Integer GetDriveType In WIN32API String @cDrvLetter Local Array 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" lnDrivesMask = GetLogicalDrives() If lnDrivesMask # 0 For ix = 0 To 31 If Bittest(lnDrivesMask,ix) lcDrive = Chr(Asc('A')+ix)+":\" ? m.lcDrive, aDrvTypes[GetDriveType(lcDrive)+1] Endif Endfor EndifCetin