[delphi-br] copiar arquivos e pastas
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
[delphi-br] Problema com User Control junto com VCLSkin
to com o seguinte problema: se eu usar o componente de skin o controle de senhas (usercontrol) nao funciona direito, qdo logo com um usuário q tem restrições ele fica lerdo e da pra perceber o menu se desabilitando agora qdo destativo o skin ele desabilita instantaneamente quase nao se percebe, queria saber se alguem ja passou por isso e se alguem tem alguma sugestao como eu poderia fazer pra poder usar os dois componentes juntos. -- 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
[delphi-br] recalcular valores de parcelas
ae pessoal to com um problema aki, eu to tentanto fazer os seguinte: aki eu tenho um form com um grid q mostra todas as parcelas do cliente, com os valores divididos corretamente pelo tanto de parcelas existentes até ai tudo bem, mas eu queria fazer assim: caso o cliente resolvesse pagar um valor a mais q o valor gerado para a parcela teria uma funcao q recalculasse o valor das outras parcelas automaticamente isso seria aplicado para todas as parcelas, podendo alterar o valor e no final checar se a soma das parcelas chegam ao total gerado pela venda, ae pessoal me ajudem desde já agradeço tiago __ Acabe com aquelas janelinhas que pulam na sua tela. AntiPop-up UOL - É grátis! http://antipopup.uol.com.br/ [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] 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
Re: RES: [delphi-br] Quero Ajudar a Todos
você pode tb hospedar no http://www.domaindlx.com ele é um servidor de páginas com suporte ASP, vc pode bolar uma pagininha legal e mandar os arquivos pra lá, ah ele tem limite de 100mb e é free, não importa o tempo q fique lá pelo menos meus arquivos nunca foram apagados de lá não. falow ah nao esquece de passa o link pro pessoal ae falow tiago Utilize o servico do site http://www.mandeibem.com.br/ onde o arquivo pode ter até 1 gb e fica disponivel por 7 dias , e ai voce manda o endereço para baixar pelo e-mail da lista Citando Eduardo Silva ® [EMAIL PROTECTED]: Amigo, vc poderia estar criando um e-mail no yahoo mesmo e enviar todo esse material para lá Poderia estar passando o e-mail criado e a senha, assim todo mundo poderia acessar esse e-mail e baixar esse material, o que acha ? No yahoo cabem 100 MB, é espaço pra caramba -Mensagem original- De: ArbSis [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 26 de janeiro de 2005 10:25 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Quero Ajudar a Todos Pessoal, quero ajudar todos os integrantes disponibilizando vairos programas de ajuda de delphi, e varias apostilas, mas tentei coloca-los no yahoo porta arquivos do meu email e naum consegui, algum tem algum espaco de ftp em algum lugar que eu posso por e que o acesso seja publico a todos desta lista, tudo da aproximadamente 10mb, naum adianta ninguem dizer manda pra mim, que eu naum irei mandar em nunhum email, colocarei em algum lugar da net, alguem sabe onde eu possa por -- 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 delphi-br- [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou delphi-br- [EMAIL PROTECTED] Links do Yahoo! Grupos __ _ Para suas ligações internacionais, disque 00 + 21 + código do país + número do telefone e aproveite as vantagens que só o 21 da Embratel oferece www.embratel.com.br -- 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 delphi-br- [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: [http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshoppi ng2.gif] [http://br.i1.yimg.com/br.yimg.com/i/br/ads4/ [keyword ] [OK] 1709_txt_lrec_yshopping2.gif] == = 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!. __ Acabe com aquelas janelinhas que pulam na sua tela. AntiPop-up UOL - É grátis! http://antipopup.uol.com.br/ -- 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
