Carpeta o Unidad de disco??
 

Hola,

Tengo un string, que es una ruta y necesito saber si esa ruta es una carpeta o una unidad de disco.
Si uso DirectoryExist me devuelve TRUE tanto para 'C:\Test' como para 'C:\'.
¿Alguna idea de como hacerlo?

Gracias por la ayuda

TrisKel

Código Delphi [-]
<div align="left">// Indica si una ruta es solo una unidad o no.
// Ej. C:\ resultaría True, C:\Windows\ False.
//
function RutaEsSoloUnidad(ruta: string): boolean;
resourcestring
  rsErrorNoDir = 'El directorio especificado no existe';
var
  unidad, resto: string;
begin
  Result := true; // Por defecto
  // Extraemos la unidad de la ruta
  unidad := ExtractFileDrive(ruta);
  // Obtenemos el resto de la ruta
  resto := AnsiReplaceStr(ruta, unidad, '');
  if (resto <> '\') and (resto <> '')
    and DirectoryExists(unidad + resto) then
      Result := false; // No es solo la unidad
  // ¿Pero existe el directorio en la ruta?
  if not DirectoryExists(unidad + resto) then
    raise EInOutError.Create(rsErrorNoDir);
end;div>
<div align="left">// Ejemplo de llamada a la función
//
procedure TForm1.Button1Click(Sender: TObject);
begin
  if RutaEsSoloUnidad('C:\') then
    ShowMessage('Es solo una unidad')
  else ShowMessage('Es otro camino');
end;div>

¿Qué tal algo así?

Código Delphi [-]
function IsDrive(S: String): Boolean;
begin
  Result := IncludeTrailingPathDelimiter(ExtractFileDrive(S)) = S;
end;

IsDrive no detecta si la ruta especificada por S realmente existe, simplemente determina si es de la forma X:\

EDITO

Otra opción

Código Delphi [-]
uses
  Masks;

function IsDrive(S: String): Boolean;
begin
  Result :=MatchesMask(S, '[a-z]:\');
end;

// Saludos

Gracias por la ayuda, me fue muy util!!

Hola,

¡Mucho mejor, dónde va a parar! ;)

Hola,

Me permito añadir una línea a una de las funciones escritas por roman más arriba, de tal modo que quede como sigue:

Código Delphi [-]
 uses
   Masks;
 
 function IsDrive(S: String): Boolean;
 begin
   S := IncludeTrailingPathDelimiter(S);
   Result := MatchesMask(S,  '[a-z]:\');
 end;

De ese modo la función devolverá "True" tanto si se pasa como parámetro "C:\" como si se pasa "C:", por ejemplo. ;)