USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Arquivos/Diretórios)

Título da Dica:  Diretório onde o Programa foi Instalado
Postada em 8/10/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
Para saber qual o diretório onde está o executalvel (arquivo *.EXE) de seu programa proceda da seguinte forma:

'No evendo que você quizer:
  Dim MeuDir as String
  MeuDir = App.Path
  If Right$(App.Path, 1) = "\" Then
    MeuDir = App.Path & "\"
  End If
  MsgBox MeuDir
Então, se, por exemplo, seu progama tiver sido instalado no diretório "C:\Arquivos de Programas\Meu Programa" ele mostrará na mensagem o seguinte texto:

"C:\Arquivos de Programas\Meu Programa\"

Esta última barra (\) é necessária no caso de você querer concatenar (somar) à essa variável o nome de um banco de dados. Veja:

MeuDir = MeuDir & "BancoDeDados.MDB"

Nesse caso a variável MeuDir passará a conter:

"C:\Arquivos de Programas\Meu Programa\BancoDeDados.MDB".

CASO o endereço não tenha essa última barra, o resultado seria "C:\Arquivos de Programas\Meu ProgramaBancoDeDados.MDB". Isto COM CERTEZA causaria um erro na hora de abrir o banco de dados. Mas, se é assim, POR QUE não fazer "SIMPLESMENTE" assim: MeuDir = App.Path & "\BancoDeDados.MDB"??? Porque o App.Path pode vir a já conter essa barra. Por isso eu fiz assim:

'Joga p/ MeuDir o conteúdo    de App.Path
MeuDir = App.Path
'Verifica a existencia da barra
If Right$(App.Path, 1) = "\" Then
   'CASO App.Path NÃO contenha a última barra,
   'soma-a à variável MeuDir
   MeuDir = App.Path & "\"
End If
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página