Re: [delphi-br] Copiar arquivo de um diretór io para outro

Tue, 08 Nov 2005 04:02:47 -0800 

Tenta usar esse procedimento ó... eu uso aqui e funciona beleza!
 
Procedure CopyFile(Const sourcefilename, targetfilename: String);
  Var S, T: TFileStream;
  Begin
    S := TFileStream.Create( sourcefilename, fmOpenRead );
    try
      T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );
      try
        T.CopyFrom(S, S.Size ) ;
      finally
        T.Free;
      end;
    finally
      S.Free;
    end;
  end;
 
Ae você usa ele na inicialização do seu programa assim:
 
procedure <alguma coisa>
var
  Result: TSearchRec;
begin
  try
    FindFirst(<DiretórioOrigem>+'\*.GDB',faAnyFile,Result);
    while FindNext(Result) = 0 do
    begin
        
copyfile(<DiretórioOrigem>+'\'+Result.Name,<DiretórioDestino>+'\'+Result.Name);
        end;
  finally
    FindClose(Result);
  end;
 
Ve se ajuda ae...
 
Falo!!
 
Daniel Ozawa
 


Wesley Costa <[EMAIL PROTECTED]> escreveu:

Estou tentando fazer um utilitário de backup que ao iniciar meu 
sistema ele faça uma cópia do banco de dados para uma pasta de backup, 
quero apenas que ele copie o arquivo .GDB, nada mais. 
Tentei usar a função copyfile, porem ela cria um arquivo de 1kb, 
enquanto o GDB tem 10MB, por exemplo.
Caso alguem possa ajudar agradeço a atenção.

Wesley Costa - [EMAIL PROTECTED]




-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>





Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
var lrec_target="_blank";var lrec_URL=new 
Array();lrec_URL[1]="http://br.rd.yahoo.com/SIG=12fkbpv8j/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131451126/A=3107499/R=0/id=flashurl/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";var
 
lrec_flashfile="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1107_lrec_hotelscom.swf?clickTAG=javascript:LRECopenWindow(1)";var
 
lrec_altURL="http://br.rd.yahoo.com/SIG=12fkbpv8j/M=380335.7481167.8369105.2369893/D=brclubs/S=2137111264:HM/Y=BR/EXP=1131451126/A=3107499/R=1/id=altimg/SIG=12c39trgo/*http://ad.br.doubleclick.net/clk;22846485;12120066;a?http://www.hoteis.com";var
 
lrec_altimg="http://br.i1.yimg.com/br.yimg.com/i/br/ads6/1107_lrec_hotelscom.gif";var
 lrec_width=300;var lrec_height=250;

---------------------------------
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
  
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
  
   O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do 
Yahoo!. 


                
---------------------------------
 Yahoo! Acesso Grátis: Internet rápida e grátis.
Instale o discador agora!

[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a