ler nomer de arquivos num diretorio e deletar aqueles conf. crit�rio

Question

sauda��es amigos sou novo na praia e preciso ler nomes de arquivos num diret�rio e identificar qual deles devem ser apagador conforme um crit�rio especifico. tenho a seguinte rotina feita e apresenta ...

Bruno Leandro · Answer

quais tipos de criterios seriam utilizados para exclusao, ex: extens�o, conteudo, nome, etc...

Marcio Teles · Answer

Seriam arquivos do tipo *.ini com o nome seguindo este padr�o 48521,21.ini ( n�o podendo ser diferente ) ent�o seria feito um comparativo seguindo este crit�rio 48521,21&lt48522,2 (exemplo) satisfeita esta condi��o ent�o seria excluido o arquivo do diret�rio  ...

S�rgio Saibel · Answer

Ola...Vc n�o poderia comparar com equals, uma vez que vc tem o nome do arquivo e o padr�o de exclus�o sendo strings??Espero ter ajudado....

Bruno Leandro · Answer

tenta fazer desta formavar  b: string;  SR: TSearchRec;  I: integer;  F,E: Double;  g: Int64;begin  I := FindFirst(caminho+*.ini, faAnyFile, SR);  F := 48522.2;  while I = 0 do begin  begin    E := StrToFloatDef(Copy(SR.Name,length(SR.Name)-11,8),99999.99);    if E &lt F then    begin      DeleteFile(caminho + SR.Name);    end;    I := FindNext(SR);    end;  end;end;...

Marcio Teles · Answer

Bom dia Bruno, primeiro obrigado pela sua grande gentileza, eu apliquei a sua sujest�o e foi apresentado o seguinte resultado, os nomes dos arquivos foram comparados com um valor cosntante 99999.99 ( apresentado em sua sujest�o) sendo que o necessario seria a compara��o do valor 48522.2 com o nome do arquivo buscado no diret�rio e caso satisfeita a condi��o (if E &lt F then) o arquivo seria deletado...

Marcio Teles · Answer

Bom dia Mandola, eu n�o conhe�o esta sua sujest�o como seria ?...

Marcio Teles · Answer

Bruno n�o tenho serteza,mas seria necessaria a bosca do nome do arquivo sem a extens�o . caso voce possa me ajudar qual seria esse metodo para aplicar sua sujet�o
var
b: string;
SR: TSearchRec;
I: integer;
F,E: Double;
g: Int64;
begin
I := FindFirst(caminho+*.ini, faAnyFile, SR);
F := 48522.2;
while I = 0 do begin
begin
E := StrToFloatDef(Copy(SR.Name,length(SR.Name)-11,8),****NOME DO ARQUIVO*****);
if E < F then
begin
DeleteFile(caminho + SR.Name);
end;
I := FindNext(SR);
end;
end;
end;

Bruno Leandro · Answer

na verdade o comando StrToFloatDef(Copy(SR.Name,length(SR.Name)-11,8),99999.99)
esta copiando os 8 ultimos caracteres do nome exceto a extens�o ou seja
o arquivo com o nome xxxx_12345.67.ini ir� copiar 12345.67, caso n�o esteja neste tipo de formato
ele ir� definir o valor 99999.99 para que esse arquivo n�o sej� excluido, caso esteja no formato informado
ir� realizar a compara��o com o parametro informado.

Marcio Teles · Answer

Foi entendido a sua explica��o Bruno, o problema � que nesta condi��o esta sendo deletado todos os arquivos com formato expecifico,mas a condi��o que foi imposta pra min � que deve ser comparado valores ( tipo Double) ou seja ...

if E < F then // se o nome do arquivo ( j� convertido em Float ) for menor que um outro Float (E)
begin
DeleteFile(caminho + SR.Name);//deletar o arquivo com o nome F e somente ele
end;

S�rgio Saibel · Answer

Ola...Da uma olhada neste link, pode ser util//www.delphibasics.co.uk/Method.asp?NameSpace=System&Class=String&Type=Class&Method=CompareEspero ter ajudado....

S�rgio Saibel · Answer

Desculpe equals n�o se aplica ao delphi....

Marco Salles · Answer

S� copiei e colei um t�pico que eu respondi

partir da vers�o delphi 2010 a uses IOUtils; tem classes
especificas para esta finalidade

C�digo:
var
path:string;
begin
if not TDirectory.Exists(D:\envio) then
raise Exception.Create(Invalid Path);
for path in TDirectory.GetFiles(D:\envio\,*.xml,
TSearchOption.soTopDirectoryOnly) do
showmessage(TPath.GetFileName(path));

Perceba temos ainda a op��o de
de filtrar os resultados retornados .. Por exemplo Arquivos com
tamanho de tantos Kb , ou com data de cria��o a partir de , ou modificados , com determinado Nome especifico etc...

Por exemplo

C�digo:
var
path:string;
Filtro : TDirectory.TFilterPredicate;
begin
if not TDirectory.Exists(D:\envio) then
raise Exception.Create(Invalid Path);
Filtro := function(const Path: string; const SearchRec: TSearchRec): Boolean
begin
Result := (TDirectory.GetCreationTime(Path) < date - 10)
end;
for path in TDirectory.GetFiles(D:\envio,*.xml,
TSearchOption.soTopDirectoryOnly,filtro) do
showmessage(TPath.GetFileName(path));
end;

Voce filtra os resultados somente os arquivos com data de cria��o dos
�ltimos dez dias . enfim uma s�rie de possibilidades

T�pico Original

http://www.activedelphi.com.br/forum/viewtopic.php?t=71008&highlight=tdirectory&sid=31c9e57b0818e35c496a65a557322895

S�rgio Saibel · Answer

E ai colega conseguiu excluir os arquivos??...

Marcio Teles · Answer

Obrigado pela for�a Mandola, mas ainda n�o deu serto vou usar a sujest�o do Marcos...realmente � um desafio que n�o esperava dar este trabalho todo mas, repito agrade�o muito a ajuda de voc�s companheiros, e quem tiver alguma outra sujest�o fica o meu agradecimento . Eu estarei nessa empreitada at� o dia 05/04/12, caso n�o consigua vou ter que abortar a miss�o ...

Marcio Teles · Answer

Marco a sua sujest�o apresenta como resultado o nome e a extens�o  ou seja todos os arquivos sendo que quest�o seria somente arquivos tipo *.ini sem a sua exten��o. Agrade�o a sua ajuda... ....meu amigo ...t� sem ideias  ...

F�rum ler nomer de arquivos num diretorio e deletar aqueles conf. crit�rio #414888