Manipulando arquivos

Delphi

10/06/2005

Olá,

Gostaria de saber como manipular arquivos(copiar, mover, apagar, etc.) dentro de um determinado diretório. Explicando melhor, tenho vários arquivos iniciando com o mesmo nome:
09062005-1.doc
09062005-2.doc
10062005-1.doc
10062005-2.doc

Quero passar o parâmetro ´1006´, por exemplo, e sejam apagados todos os arquivos iniciados com este nome.

Alguém sabe como fazer?


Rafaaugusto

Rafaaugusto

Curtidas 0

Respostas

Massuda

Massuda

10/06/2005

[url=http://forum.clubedelphi.net/viewtopic.php?t=64000]Neste tópico[/url] tem um exemplo de como obter uma lista com todos os arquivos de um diretório. Adapte o exemplo para usar uma especificação de arquivo (o ´*.*´ no exemplo) que você precisa. Tendo a lista dos arquivos, basta usar a função DeleteFile da unit SysUtils para apagar os arquivos.


GOSTEI 0
Delphi32

Delphi32

10/06/2005

Nesse exemplo a lista de arquivos estaria em um TFileListBox.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   for i:=FileListBox1.Items.Count-1 downto 0 do
   begin
      if Pos(´1006´,FileListBox1.Items[i])=1 then //<<verifica se o arquivo começa com 1006
      DeleteFile(IncludeTrailingPathDelimiter(FileListBox1.Directory)+FileListBox1.Items[i]);
   end;
end;


Acho que é isso.

Até!


GOSTEI 0
POSTAR