[Resolvido]Abrir o sistema apenas se localizar uma pasta no pc - Segurança

Pessoal. Pesquisei e não encontrei nada.

Ao clicar no botão entrar do formulário inicial, de login, eu preciso de um comando vba para que:

O sistema só abra se localizar uma pasta específica (ou um arquivo dentro da pasta)
criada por mim no pc por exemplo C:\Windows\System32\NetworkList2\Arquivo

Eu colocaria a pasta em algum lugar do computador do usuário,
caso não localize a pasta no caminho indicado apareça uma mensagem:
"Este computador não tem licença de uso".

Caso localize abra normalmente o formulário seguinte "Form1"

Isto é só para tentar inibir que um usuário saia repassando o sistema para outras pessoas indiscriminadamente, sem ao menos dar um "obrigado" ao autor, no caso eu rsrs.

Sei que não é a melhor nem única forma, mas queria acrescentar assim mesmo.

Poderia ser uma pasta ou um arquivo qualquer, tipo "nomearquivo.txt"

Agradeço qualquer ajuda. Acho que é importante para todos.

Amigo, existem alguns exemplo aqui pelo forum...
Sim, existem varios...

Como por exemplo:
https://www.maximoaccess.com/t14756-resolvidocriar-diretorio-verificar-se-existe
https://www.maximoaccess.com/t15529-funcao-para-verificar-arquivo-na-pasta

Ou ate mesmo esse aqui completão...
https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos

Boa tarde...

Apenas um pitaco...em termo de didática !!

No primeiro formulário a ser carregado em teu sistema coloque dessa forma no evento ao carregar
Call VerificaSeFicheiroExiste()


Depois nesse mesmo formulário copie e cola essa função do JPaulo

Sub VerificaSeFicheiroExiste()
byJPaulo, maximoaccess
Dim fso
Dim file As String
file = "C:\Windows\XPTO.dll" ' caminho do ficheiro
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox "("Esse programa não está autorizado a rodar nesse computador" & vbcrlf & _
"O programa será fechado"), vbinformation, me.caption
docmd.quit
Else
MsgBox " Programa autorizado a rodar nesse computador", vbinformation, me.caption
End If
End Sub


Para criar o arquivo de texto XPTO.Dll basta abrir o bloco de notas e salvar como XPTO. Depois é só mudar a extensão de *.TXT para *.DLL

Prezado Fabio Paes

Juro que pesquisei, mas qdo não se entende do assunto as palavras chave sao mal escolhidas as vezes, resultando em inúmeros posts...

Obrigado pela ajuda na pesquisa, consegui montar uma solução e já ia postar aqui qdo vi a versão do Sílvio, bem mais completa que a minha modesta contribuição. Ia ficar assim:

No botao de confirmar login e senha, evento ao clicar:

JPaulo
Dim fso
Dim file As String
file = "C:\teste.txt" ' caminho do ficheiro
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox " Licença não encontrada.", vbInformation, "Protegido por Direitos Autorais"
Docmd.quit
Else ...


Prezado Sílvio

Muito obrigado por montar a solução, ficou mais completa do que o que tinha pensado em fazer então vou utilizá-la!

Obrigado a ambos mestres desenvolvedores!

Grato pelo retorno amigo! Até a próxima se Deus quiser!

Quanto a a pesquisa, eu recomendo sempre enxugar a pesquisa colocando as palavras importantes, e realizar no Google.com.br


Para sua duvida por exemplo:

Verificar existencia pasta;maximoaccess <=== Ira mostrar primeiro os resultados do Maximoaccess

Valeu Flávio, o fórum agradece o retorno.