[Resolvido]Abrir o banco de dados verificar se há um arquivo txt

Boa Tarde

Para impedir que pessoa que copie o banco de dados  para outro computador, pensei em colocar um arquivo txt na system32 do windows.

Será que tem como ao abrir o banco de dados verificar se esse arquivo esta presente na pasta e n~~ao tiver presente feche o banco de dados  e se tiver presente abra o banco de dados normalmente.

Tem como?

Olá

Você pode usar adaptar esse código para a sua necessidade:

Dim fso
Dim file As String
file = "C:\Pasta\Arquivo.txt" 'caminho do arquivo
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
... 'código no caso do arquivo existir
Else
... 'código no caso do arquivo não existir
MsgBox "Texto da mensagem," & vbCrLf _
& texto da mensagem."
End If

Boas amigo, ai eu de novo.. Teste este modelo.. Te enviei junto um arquivo dll que criei, vc pode modificar o nome, mais terá que mudar o nome no caminho indicado no código do form verificarlicença.. E fácil, basta chamar o form verificarlicença ao abrir seu bd.. e colocar a dll dentro do arquivo windows.. teste ai..

Na verdade eu usava este método, agora estou a usar um sistema desenvolvido pelo amigo Avelino Sampaio chamado Open, e bem mais segura.. da uma olhada se vc esta a desenvolver e quer segurança eu te indico..

http://www.usandoaccess.com.br/tutoriais/tuto8.asp

Esse sistema que você usava é excelente, o que o quero no momento. Valeu.

Show amigo.. Abraço.. Sucesso