... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Só abrir o aplicativo se existir uma pasta

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

Envie seu comentário: