Excluir itens de uma pasta

Question

Crio uma pasta, extraio um arquivo bin�rio, gero um txt, varro esse txt e depois eu gravo em banco aquilo que me interessa. pergunta: Como fa�o, para depois disso tudo, limpar esta pasta, n�o deixar nada? Grato!!!

J� tentou usar a fun��o [b:aaaa268d84]DeleteFile[/b:aaaa268d84]?

Boa sorte e bons c�digos.

Martins · Answer

[quote:aaaa268d84=�Paulo�]Crio uma pasta, extraio um arquivo bin�rio, gero um txt, varro esse txt e depois eu gravo em banco aquilo que me interessa. pergunta: Como fa�o, para depois disso tudo, limpar esta pasta, n�o deixar nada? Grato!!![/quote:aaaa268d84]J� tentou usar a fun��o [b:aaaa268d84]DeleteFile[/b:aaaa268d84]?Boa sorte e bons c�digos....

Carlosrm · Answer

Paulo,

apenas complementando a resposta do Martins, se quiser tamb�m deletar a Pasta (ou diret�rio, como era chamado antigamente), no Delphi 7 voc� pode usar a fun��o RemoveDir. Por�m, esta fun��o s� apaga diret�rios que estejam vazios. Ent�o, realmente ser� necess�rio usar o DeleteFile, como lembrou o Martins, para primeiro apagar cada um dos arquivos que estiverem na pasta/diret�rio a deletar. Por �ltimo, n�o confie plenamente na seguran�a dos arquivos/pasta apagados. Em algumas situa��es eles podem ser recuperados. Eu acho mais prudente alterar o conte�do dos arquivos, antes de apag�-los. Se algu�m recuper�-los, vai encontrar informa��o n�o aproveit�vel...

carlosrm

Thiago Vidal · Answer

Cara, tive um problema parecido; escrevi uma fun��o que apaga todos os arquivos e subpastas recursivamente de um determinado caminho.

Segue o c�digo, talvez vc tenha que adaptar alguma coisa a�.

[code:1:a175611496]function RecursiveDelete(FullPath: string): Boolean;
var
sr: TSearchRec;
FullName: string;
begin
Result := True;
if (FindFirst(FullPath + �\\*.*�, faAnyFile, sr) = 0) then
try
repeat
FullName := IncludeTrailingPathDelimiter(FullPath) + sr.Name;
if (sr.Name <> �.�) and (sr.Name <> �..�) then
begin
if ((sr.Attr and faDirectory) = 0) then Result := DeleteFile(FullName)
else Result := RecursiveDelete(FullName);
end;
until (FindNext(sr) <> 0) or not Result;
finally
FindClose(sr);
end;
Result := Result and DirectoryExists(FullPath) and RemoveDir(FullPath);
end;
[/code:1:a175611496]

Por acaso tiveram problema para excluir diret�rios com longo path?

Paulo · Answer

Thiago, era exatamente isso. A �nica adapta��o que tive que fazer, foi no RemoveDir, pois eu precisava apenas limpar a pasta e n�o remov�-la. Martins, eu n�o usei o DeleteFile, porque para usar o DeleteFile � preciso informar o Path + Nome do Arquivo + Extens�o, mas mesmo assim, agrade�o a todos, agrade�o mesmo. Valeu!!!!!

Sem problemas [b:f8743f04b1]Paulo[/b:f8743f04b1], mas veja q a fun��o o utiliza.

 if ((sr.Attr and faDirectory) = 0) then Result := DeleteFile(FullName)

Mesmo assim, bons c�digos e boa sorte.

Martins · Answer

[quote:f8743f04b1=�Paulo�]Thiago, era exatamente isso. A �nica adapta��o que tive que fazer, foi no RemoveDir, pois eu precisava apenas limpar a pasta e n�o remov�-la. Martins, eu n�o usei o DeleteFile, porque para usar o DeleteFile � preciso informar o Path + Nome do Arquivo + Extens�o, mas mesmo assim, agrade�o a todos, agrade�o mesmo. Valeu!!!!![/quote:f8743f04b1]Sem problemas [b:f8743f04b1]Paulo[/b:f8743f04b1], mas veja q a fun��o o utiliza.[code:1:f8743f04b1] if ((sr.Attr and faDirectory) = 0) then Result := DeleteFile(FullName) [/code:1:f8743f04b1]Mesmo assim, bons c�digos e boa sorte....

Paulo · Answer

Ol� Martins, o que eu quiz dizer � que eu j� havia utilizado o DeleteFile e sempre estava informando o Nome e a Extens�o do arquivo. Confesso que n�o me atentei a essa linha do c�digo, mas valeu assim mesmo.

Rafael Vilela · Answer

Por acaso tiveram problema para excluir diret�rios com longo path?...