Fórum Isso é possível, alguém sabe fazer? Backup com Horário ??? #158775
08/05/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
08/05/2003
C@rdoso
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.....
//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.....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)