|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Diretório onde o Programa foi Instalado
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
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
|
|
|
|
|
