Como recuperar o caminho completo de um diretório
Em algumas situações temos o caminho relativo de um diretório.
Situações comuns:
D:\teste\pasta\bin\teste\..\..\files\texto.txt
ExtractFilePath(Application.ExeName) + ‘..\dados.xml
e etc…
Então gostaríamos de transformar este caminho
‘D:\teste\pasta\bin\teste\..\..\files\texto.txt’
em isto
‘D:\teste\pasta\files\texto.txt’
Como fazer?
Felizmente a VCL do Delphi já conta com esta solução!
Está função: TPath.GetFullPath
Veja o exemplo:
1
2
3
4
5
6
7
8
9
10
11
12
13
| uses
IOUtils;
procedure TForm1.Button1Click(Sender: TObject);
const
path = 'D:\teste\pasta\bin\teste\..\..\files\texto.txt';
var
vPath : string;
begin
vPath := path;
ShowMessage( TPath.GetFullPath(path) );
end; |
uses
IOUtils;
procedure TForm1.Button1Click(Sender: TObject);
const
path = 'D:\teste\pasta\bin\teste\..\..\files\texto.txt';
var
vPath : string;
begin
vPath := path;
ShowMessage( TPath.GetFullPath(path) );
end;
Agradecimentos especiais a Ivan Cesar pela dica de utilizar a unit IOUtils.
-
Giovani Da Cruz
-
3.068 views
- 0 comentários
- 5 de outubro de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo