Ricardo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2010 08:49 hs
Olá a Todos .
Gostaria de criar uma rotina assim:
Executo o programa
Procura no diretorio system32 do windows XP/Vista/Seven se determinada ocx existe
Se existir:
Continua a Rodar o Programa.
Se não:
vai em um diretorio chamado Ocx copia esta ocx para o diretorio system32
|
|
|
|
|
|
APW
|
S.J.RIO PRETO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/06/2010 03:28 hs
Public Function ExisteArquivo(Arquivo As String) As Boolean
ExisteArquivo = Not (Dir(Arquivo) = "")
End Function
essa função verifica se existe o arquivo, se o arquivo existir ela retorna true, senao, false, agora é só implementar seu codigo.. ate mais...
|
|
|
|
Cabelo
|
BRASÓPOLIS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/07/2010 15:45 hs
Vê se isso te ajuda ok? Até mais
If Dir("C:WINDOWSSYSTEM32ome da ocx") <> "nome da ocx" Then
Filecopy "C:OCXome da ocx" C:WINDOWSSYSTEM32ome da ocx"
End If
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/07/2010 10:49 hs
E se ainda vc quiser registrá-la use o seguinte comando: Call Shell("regsvr32 nomedaOCX.ocx", vbNormalFocus) |
|
|
|
