COPIAR ARQUIVOS

RICOCARDOZO 01/08/2009 23:19:44
#318571
Olá a todos
Tenho um sistema e queria implemenntar uma função
Tipo se no meu programa tem uma ocx Y , quando o cliente for executar o programa no computador dele ao ele executar o programa na inicialização procura no micro dele em um diretório X a ocx Y .
Caso o programa não encontre ele copia do meu sistema para o diretório system do micro do cliente e resgistra tudo através do meu sistema.
Há e se caso o cara já tenha esta ocx Y , ele não faça nada .

tem como fazer isto?
Depois quero aproveitar a mesma lógica para criar um sistema de back-up tambem .



ALEXLUGON 01/08/2009 23:32:17
#318572
Para copiar vc pode usar o comando FileCopy

FileCopy ArquivoOrigem, DiretórioDestino

e para verificar se existe a ocx pode usar o comando Dir

tipo assim

if dir([Ô]C:windowssystem32minha.ocx[Ô]) = [Ô][Ô] then
FileCopy ArquivoOrigem, DiretórioDestino
end if

agora para registra-la de uma olhada no site que tem varios itens falando a respeito.


espero ter ajudado.


RICOCARDOZO 01/08/2009 23:40:25
#318573
Alex valeu pela dica
achei alguma coisa tambem quanto a copiar arquivos e verificar se existe em tal dirtório , mas quanto a registrar via vb ainda não encontrei.
tipo eu não quero usar outro sistema quero que ele registre a ocx sem o cara saber tipo via meu sistema mesmo na inicialização .

WILLVIDAL 02/08/2009 00:21:17
#318576
Execute este comand, ele registra e retorna uma mensagem
Shell [Ô]c:windowssystem32
egsvr32.exe c:windowssystem32suaocx.ocx[Ô]

e se vc não quiser que o cliente saiba vc fa assim:
Shell [Ô]c:windowssystem32
egsvr32.exe c:windowssystem32suaocx.ocx /s[Ô]

Boa sorte !
WILLVIDAL 02/08/2009 00:24:45
#318577
vixi! nesse código q eu mandei não saiu a barra pra esquerda () pra especificar os diretórios, então eu vou trocar a barra por (-)

[ô]com mensagem
Shell [Ô]c:windowssystem32
egsvr32.exe c:windowssystem32suaocx.ocx[Ô]

[ô]sem mensagem
Shell [Ô]c:windowssystem32
egsvr32.exe c:windowssystem32suaocx.ocx /s[Ô]
WILLVIDAL 02/08/2009 00:26:23
#318578
[ô]com mensagem
Shell [Ô]c:-windows-system32-regsvr32.exe c:-windows-system32-suaocx.ocx[Ô]

[ô]sem mensagem
Shell [Ô]c:-windows-system32-regsvr32.exe c:-windows-system32-suaocx.ocx /s[Ô]
Tópico encerrado , respostas não são mais permitidas