Copiar arquivos de uma tabela para outra

Question

Preciso q a minha aplica��o, pegue alguns arquivos numa tabela e copiar para
outra. Depois deletar alguns arquivos de acordo com alguns crit�rios, tipo
todos que comecem com underscore(_). � s� isso. Como fazer?

[b:5a362143fb][color=green:5a362143fb]T�tulo Editado(Saviski) [/color:5a362143fb]- �Como Fazer�[/b:5a362143fb]

Lucas Silva · Answer

Isso vc pode fazer com duas tables...cada uma apontado pra uma tabela.Em uma vc seleciona, e na outra vc salva.*Coloque um t�tulo que condiz com a sua d�vida no proximo post...T+,Lucas!...

Lucas Silva · Answer

Neste caso, como vc vai precisar filtrar registros � melhor usar queries......

Paulo · Answer

Perdoe-me, n�o � copiar a tabela de um banco de dados, eu troquei as bolas.
A quest�o � a seguinte:
H� um diret�rio que possui alguns arquivos e ap�s o sistema fazer uma atualiza��o,
� necess�rio copiar o conteudo da pasta e jogar em outra, depois deletar
alguns arquivos de acordo com alguns crit�rios, tipo tabelas q comecem
com underscore(_). Eu fiz a pergunta errada.

Misael · Answer

Ae..... brother....verifique os codigos abaixo:

Deletar arquivo de um determinado diretorio

procedure TForm1.Button1Click(Sender: TObject);
var SearchRec:TSearchRec;
      Result:Integer;
begin
   Result:=FindFirst(�c:\Diretorio\NomedoArquivo�, faAnyFile, SearchRec);
   while Result=0 do
      begin
         DeleteFile(�C:\Diretorio\�+SearchRec.Name);
         Result:=FindNext(SearchRec);
      end;
end;

Mover uma pasta para outra


implementation
uses ShellAPI;
{$R *.DFM}

function MoveALL(cOrigem, cDestino: string): Boolean;
var
  F: TSHFileOpStruct;
  pFromc, pToc: array[0..255] of char;
  ResultVal: integer;
begin
  FillChar(pFromc, SizeOf(pFromc),0);
  StrPcopy(pFromc, ExpandFileName(cOrigem)+00);

  FillChar(pToc, SizeOf(pToc),0);
  StrPcopy(pToc, ExpandFileName(cDestino)+#00);

  F.wnd := 0;
  F.wFunc := FO_MOVE;
  F.pFrom := pFromC;
  F.pTo   := pToc;

  F.fFlags:= FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SIMPLEPROGRESS 
or FOF_FILESONLY;

  F.fAnyOperationsAborted := False;
  F.hNameMappings := nil;
  Resultval := ShFileOperation(F);
  Result := (ResultVal = 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MoveALL(�C:\Paulo�, �C:\Paulo�) then
    Caption := �Deu Certo!�
  else
    Caption := �Erro ao mover pasta Paulo!�
end;

Mover arquivo


procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveFile(�C:\Paulo\Paulo.db, �C:\Windows\Paulo.db);
end;

F�rum Copiar arquivos de uma tabela para outra #246306