Autor
Mensagem
Postado em: 3/2/2012 11:33:11 PM
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
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
Postado em: 4/2/2012 7:29:36 AM
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
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
Postado em: 4/2/2012 9:26:19 AM
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
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
Postado em: 4/2/2012 9:59:00 AM
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));
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));
Postado em: 4/2/2012 10:51:42 AM
bom dia,
isso mesmo, deu certinho.
Obrigado...
isso mesmo, deu certinho.
Obrigado...
