Manipulando arquivos

Question

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.doc0906200...

Massuda · Answer

[url=//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....

Delphi32 · Answer

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�!

F�rum Manipulando arquivos #284395