pegar nome de arquivo

Delphi

03/02/2012

Boa noite,

Tenho em uma pasta somente com um arquivo com esse nome:
D:\envio\31110518670828000112550030000034971501001142-procNfe.xml

Preciso pegar esse nome completo e colocar numa variavel, só que o nome do arquivo altera. pois quando eu exporto mando deletar o mesmo, a dúvida é a seguinte, como faço para passar para uma variavel o nome do arquivo .xml que existir nessa pasta D:\envio ?


grato:
Jose Luiz de Medeiros
Jose Medeiros

Jose Medeiros

Curtidas 0

Respostas

Wesley Yamazack

Wesley Yamazack

03/02/2012

Olá José,

Acabei de ver sua dúvida e lembrei que tenho um artigo que fala exatamente disso, veja :

Veja no artigo http://goo.gl/YhW5h.

Um abraço, se tiver outras dúvidas e se estas poderem ser dúvidas de outros podemos fazer uns artigos, me envie umas dicas para fazermos novos artigos, o que acha?

Att,

Wesley Y
wyamazack@lithic.com.br
GOSTEI 0
Jose Medeiros

Jose Medeiros

03/02/2012

Wesley, bom dia.


Obrigado pela atenção, pareçe que este exemplo seu esta com uma erro nessa parte do código, da uma olhada para ver se o erro e meu.

repeat
if (SR.Attr then


Lista.Add(SR.Name);

until FindNext(SR)0;

FindClose(SR);

Esta dando erro, não compila...


Grato:
Jose Luiz
GOSTEI 0
Marco Salles

Marco Salles

03/02/2012

A partir da versão delphi 2010 a uses IOUtils; facilita muito o nosso trabalho


var
path:string;
begin
if not TDirectory.Exists(C:\xxxxxxxxPodeApagar) then
raise Exception.Create(Invalid Path);
for path in TDirectory.GetFiles(C:\xxxxxxxxPodeApagar,*.xml,
TSearchOption.soTopDirectoryOnly) do
showmessage(TPath.GetFileName(path));
GOSTEI 0
Jose Medeiros

Jose Medeiros

03/02/2012

bom dia,

isso mesmo, deu certinho.


Obrigado...
GOSTEI 0
POSTAR