[roman]

Código Delphi [-]
try
  ChDir('A:\');
except
  ShowMessage('No hay disco en la unidad A');
end;

// Saludos