Aeee Galera do script Brasil, sou novato por aqui e vi, procurando por ferramentas de busca na net que é o melhor lugar pra resolver sobre dúvidas, espero que me ajudem beleza?
A dúvida é a seguinte: estou tentando fazer um módulo de backUp em meu sisteminha mas, gostaria de compactar a pasta DB (onde ficam minhas tabelas do Paradox), mas inteira.
... tipo, já sei como fazer com arquivos, mais ou menos assim:
Pergunta
PeVermeio
Aeee Galera do script Brasil, sou novato por aqui e vi, procurando por ferramentas de busca na net que é o melhor lugar pra resolver sobre dúvidas, espero que me ajudem beleza?
A dúvida é a seguinte: estou tentando fazer um módulo de backUp em meu sisteminha mas, gostaria de compactar a pasta DB (onde ficam minhas tabelas do Paradox), mas inteira.
... tipo, já sei como fazer com arquivos, mais ou menos assim:
Insira zLib no Uses da sua Unit...
procedure TForm1.CompressãoClick(Sender: TObject);
var
FileIni, FileOut: TFileStream;
Zip: TCompressionStream;
begin
FileIni:=TFileStream.Create('C:\pasta\...arquivo a ser comprimido...', fmOpenRead and fmShareExclusive);
FileOut:=TFileStream.Create('C:\pasta\...arquivo comprimido...', fmCreate or fmShareExclusive);
Zip:=TCompressionStream.Create(clMax, FileOut);
Zip.CopyFrom(FileIni, FileIni.Size);
Zip.Free;
FileOut.Free;
FileIni.Free;
end;
mas n consigo compactar a PASTA DB.
Aguardo respostas :D , vlw
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.