8

Como faço para pegar a ultima pasta de um diretório. Ex:

C:\Program Files\Skype

A ultima pasta seria Skype.

1
  • Tiago, crie um resposta por favor, funcionou. 28/10/2014 às 23:23

3 Respostas 3

9

Você pode utilizar a função ExtractFileName() para extrair o nome de um arquivo ou pasta, o resultado será os caracteres mais a direita da string passada como parâmetro, começando com o primeiro caractere após o colon ou backslash.

Caso o resultado da função acima conter um delimitador no final você pode usar a função ExcludeTrailingPathDelimiter() para elimina-lo.

uses
  SysUtils;

function GetPath(const pPath: string): string;
begin
if ExtractFileExt(pPath) <> '' then
  Result := ExtractFileName(ExtractFileDir(pPath))
else
  Result := ExtractFileName(ExcludeTrailingPathDelimiter(pPath));
end;

Para usar:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetPath('C:\Program Files\Skype'));            // Skype
ShowMessage(GetPath('C:\Program Files\Skype\'));           // Skype
ShowMessage(GetPath('C:\Program Files\Skype\Skype.exe'));  // Skype
end;
3
  • 1
    E se eu tiver o path 'C:\Program Files\Skype\'?
    – Caputo
    29/10/2014 às 10:25
  • @EProgrammerNotFound era essa a ideia mesmo, além de checkar se é um diretório ou arquivo tb ficaria legal
    – Caputo
    29/10/2014 às 11:24
  • 1
    @Caputo Hoje que fui ver que minha resposta falhava nessa situação. Já arrumei o código. +1
    – stderr
    25/02/2015 às 18:45
7

Para evitar possíveis resultados errados, eu faria da seguinte forma

program ConsoleTestApp;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

function ObterNomeUltimaPasta(path: string): string;
var
  pathAjustado: string;
begin
  pathAjustado := path;
  if FileExists(pathAjustado) then
    pathAjustado := ExtractFileDir(pathAjustado);

  Result := ExtractFileName(ExcludeTrailingPathDelimiter(pathAjustado));
end;

begin
  try
    Writeln(ObterNomeUltimaPasta('C:\Program Files\GIMP 2\bin\bz2-1.dll'));
    Writeln(ObterNomeUltimaPasta('C:\Program Files\GIMP 2\bin\'));
    Writeln(ObterNomeUltimaPasta('C:\Program Files\GIMP 2\bin'));
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

O resultado do console foi

bin
bin
bin

1
6

Você precisa de partir a string "C:\Program Files\Skype" nas "\", assim:

program Project28;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils;

procedure Split(Delimiter: Char; Str: string; ListOfStrings: TStrings) ;
begin
   ListOfStrings.Clear;
   ListOfStrings.Delimiter     := Delimiter;
   ListOfStrings.DelimitedText := Str;
end;


var
   OutPutList: TStringList;
begin
   OutPutList := TStringList.Create;
   try
     Split('\', 'C:\Program Files\Skype', OutPutList) ;
     Writeln(OutPutList.Text);
     Readln;
   finally
     OutPutList.Free;
   end;
end.

O resultado será:

List[0] = 'C:'
List[1] = 'Program Files'
List[2] = 'Skype'

Vc só tem de agarrar o List[2] para obter a ultima pasta.

Outra alternativa é usar a função ExtractFileName:

uses
  SysUtils;

var
    Filepath : string ;
begin
  Filepath:='C:\Program Files\Skype';
  ShowMessage(ExtractFileName(Path));

onde o resultado é

Skype
1
  • 1
    uma boa forma de pegar a última pasta seria List[List.Count-1]
    – Caputo
    29/10/2014 às 11:25

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .