Extrair nome do diretorio

Delphi

02/01/2009

Opa...

Estou precisando extrair apenas o nome da pasta onde esta um arquivo, apenas o nome do arquivo eu sei tipo:
C:\Arquivos de programas\Borland\Delphi7\deploy.rtf com o codigo

EdtPasta.Text:=ExtractFileName(OdPasta.FileName);
ele me retorna apenas ´deploy.rtf´

o que eu preciso é que ele me retorne apenas o nome da pasta no caso seria ´Delphi7´...

Por favor alguem!!!!!


Sidimarsilva

Sidimarsilva

Curtidas 0

Respostas

Pestana_

Pestana_

02/01/2009

é isso que você quer?

EdtPasta.Text := ExtractFileName(ExtractFileDir(´C:\Arquivos de programas\Borland\Delphi7\deploy.txt´));



GOSTEI 0
Sidimarsilva

Sidimarsilva

02/01/2009

Grande...Grande...Grande...Grande...Grande...Grande...

Perfeito amigo valeu Pestana_!!!!!!!!!!!!


GOSTEI 0
Pestana_

Pestana_

02/01/2009

blz, se precisar de novo é só postar!


flw.


GOSTEI 0
POSTAR