ae pessoal, tava pesquisando alguns tópicos já existentes no forum e
consegui fazer um sisteminha q copia os arquivos pra determinada
pasta criada remotamente, só q eu só to conseguindo copiar os
aquivos q estao na pasta de origem, as pastas e subpastas existentes
dentro do diretório de origem eu nao consigo copiar com o codigo
atual, peço ajuda a vcs q me ajudem a adaptar o meu codigo pra q ele
copie pastas e subpastas, o codigo ta ae abaixo
Código:
procedure TF_Principal.BitBtn1Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
data,hora:string;
begin
formdata.Time:=time();
formdata.Date:=date();
data:=copy(datetostr(formdata.date),1,2)+'-'+copy(datetostr
(formdata.date),4,2)+'-'+copy(datetostr(formdata.date),7,4);
hora:=copy(timetostr(formdata.time),1,2)+'-'+copy(timetostr
(formdata.time),4,2);
diretorio1:=((Edit2.Text)+'\'+(edit4.Text)+' '+data+' '+hora);
ForceDirectories (diretorio1);
I := FindFirst((edit1.Text)+'\*.*', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := (edit1.Text)+'\' + SR.Name;
Destino := diretorio1+'\' + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), false) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
showmessage('Backup Efetuado com sucesso em: '#13#13+diretorio1);
end;
--
<<<<< 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] ou [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
