Isso é possível, alguém sabe fazer? Backup com Horário ???

Delphi

08/05/2003

Alguém sabe como faço isso:

Tenho um diretório com a pasta:
[b:9d7fad7c6c]C:\Projetos_Origem[/b:9d7fad7c6c]

e mais duas pastas:
[b:9d7fad7c6c]C:\Backup_Manha[/b:9d7fad7c6c]e
[b:9d7fad7c6c]C:\Backup_Tarde[/b:9d7fad7c6c]

Tenho que fazer uma rotina que as [b:9d7fad7c6c]8:30 [/b:9d7fad7c6c]da manhã copie da pasta [b:9d7fad7c6c]Origem [/b:9d7fad7c6c]para a pasta [b:9d7fad7c6c]C:\Backup_Manha[/b:9d7fad7c6c]
E a mesma rotina faça a cópia da [b:9d7fad7c6c]Origem [/b:9d7fad7c6c]para a pasta [b:9d7fad7c6c]C:\Backup_Tarde às 17:30[/b:9d7fad7c6c]
Isso é possível, alguém sabe fazer?

Grata

Fabi :P


Fabiana

Fabiana

Curtidas 0

Respostas

C@rdoso

C@rdoso

08/05/2003

Olá Fabiana, é possível sim. Faça o seguinte :

//declare na uses ShellAPI
//Declare a procedure
procedure CopyDir(const cFrom, cTo : string);


//Copie esta procedure e todo o conteudo dela no final do codigo do for
procedure CopyDir(const cFrom, cTo : string);
var
Origem, Destino : String;
OpStruc : TSHFileOpStruct;
frombuf, tobuf : array[0..128] of Char;
begin

Origem := cFrom;
Destino := cTo;

FillChar(frombuf, Sizeof(frombuf), 0);
FillChar(tobuf, Sizeof(tobuf), 0);
StrPCopy(frombuf, Origem);
StrPCopy(tobuf, Destino);
with OpStruc do begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle := nil;
end; // with
ShFileOperation(OpStruc);
end;

//Insira no form um componente Timer e no evento OnTimer digite o seguinte código :

if ´08:30:00´ = timetostr(Time) then
CopyDir(C:\Projetos_Origem,C:\Backup_Manha)
else if ´17:30:00´ = timetostr(Time) then
CopyDir(C:\Projetos_Origem,C:\Backup_Tarde);


espero ter ajudado, mas qualquer dúvida me mande um email.....


GOSTEI 0
POSTAR