Só abrir o aplicativo se existir uma pasta
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Usuário Abegahil:
Boa noite amigo,
gostaria de um exemplo de login que só abra o aplicativo, se existir uma pasta com um arquivo qualquer, em um determinado local do PC. Caso essa pasta não exista, seja exibida uma mensagem que naquele computador o aplicativo não funciona.
Seria possível ?
Suporte:
Abegahil, utilize a função DIR() do Access para identificar a pasta. Algo assim:
If len(dir("c:\Windows",vbDirectory)) = 0 then
'pasta não existe
else
'pasta existe
end if
Se quiser identificar um arquivo ao invés da pasta, utilize:
if len(dir("c:\Windows\SeuArquivo.txt",vbArchive)) = 0 then
'Arquivo não existe
else
'Arquivo existe
end if
Outra opção é ocultar o arquivo e neste caso utilizar esta linha:
If len(dir("c:\Windows\SeuArquivo.txt",vbHidden ))= 0 then
...
Usuário Abegahil:
Avelino, funcionou!
Encontrei esta outra função que funcionou também:
Dim fso
Dim file As String
file = "C:\Windows\JARS.dll" 'caminho do arquivo
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(file) Then
MsgBox "Esse programa não está autorizado a rodar nesse computador..", _
vbInformation, "Protegido por Direitos Autorais"
DoCmd.Quit
End If
Não há comentário |