Só abrir o aplicativo se existir uma pasta
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |