[Resolvido]Verificar se existe .DLL no windows\system

Bom dia,
Qual a melhor maneira num botão de impressão de um formulário, vá verificar se existe no c: \windows\system32 uma determinada DLL (por ex. 123.dll) e se existir continuar, se não existir faça cancelar o evento.
Obrigado

Ola seja bem vindo ao fórum;

1º Cole num modulo novo, o código que está neste .txt e salve.

2º Faça o teste num botão, assim;

Private Sub SeuBotão_Click()
    If FileExists("c:\windows\system32\mycomput.dll") = True Then
        MsgBox "Sim existe...", vbInformation
            Else
        MsgBox "Não existe...", vbCritical
    End If
End Sub

Outra alternativa:


'Habilite a Referencia VBA Microsoft Scripting Runtime

'Verifica se o ficheiro existe:

Sub VerificaSeFicheiroExiste()
Dim fso
Dim file As String
    file = "c:\windows\system32\mycomput.dll" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
        If Not fso.FileExists(file) Then
        MsgBox file & " não encontrado.", vbCritical, "Não Encontrado"
          Else
        MsgBox file & " encontrado.", vbInformation, "Encontrado"
  End If
End Sub


'Para chamar o Sub

Private Sub SeuBotão_Click()
    Call VerificaSeFicheiroExiste
End Sub

Agora tudo preparado para você;


Private Sub SeuBotão_Click()
Dim fso
Dim file As String
On Error GoTo 1
'Habilite a Referencia VBA Microsoft Scripting Runtime
'Caminho do ficheiro a verificar se existe
file = "c:\windows\system32\mycomput.dll"
'Cria o objecto FileSystem
Set fso = CreateObject("Scripting.FileSystemObject")
'Verifica se existe, se existir abre relatorio e janela de impressão
If fso.FileExists(file) Then
DoCmd.OpenReport "SeuRelatorio", acViewPreview
DoCmd.RunCommand acCmdPrint
Else
'Se não existir, não faz nada
Exit Sub
End If

1:
'No caso de cancelar a impressão
If Err.Number <> 0 And Err.Number <> 2501 Then
Exit Sub
End If
End Sub

Criei o módulo e adaptei o 1º exemplo
Funcionou na perfeição
Muito obrigado

Obrigado pelo retorno o forum agradece.

Por que não funciona Access 2016 ? Preciso de uma alternativa assim mas não encontro solução !

Ola;

No 2016 o FileSystemObject funciona sim.
Veja se está a dar o caminho correto do ficheiro.

Ou cole aqui toda a sua instrução VBA, para analisarmos.

Olá, Estou a tentar Msg nº 2

em

C:\Windows\System32\drivers\teste.dll