Copiar arquivos de uma tabela para outra

10/08/2004

1

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]


Responder

Posts

10/08/2004

Lucas Silva

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!


Responder

10/08/2004

Lucas Silva

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


Responder

10/08/2004

Paulo

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.


Responder

10/08/2004

Misael

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;




Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira