CAMINHO DA APLICACAO

SNNIFFER 19/04/2010 10:36:18
#339703
Galera,

Preciso de uma solução urgente, bom o problema é este:
Gostaria que o meu aplicativo, localiza-se o disco que o esta executando, por exemplo, quando for executado num pendrive, ele localizará, a pasta onde ele está, e o mesmo para os HD[ô]s.

Vlw
ASHKATCHUP 19/04/2010 10:44:15
#339704
App.path ?
ERIVELTONVGA 19/04/2010 11:04:35
#339705
snniffer bom dia

eu faco assim

Set bancodedados = OpenDatabase(App.Path & [Ô]\[txt-color=#e80000]seubanco[/txt-color].mdb[Ô]) [ô]SETAR O BANCO DE DADOS (ORIGINAL)

espero ter ajudado.
PASCOAL 20/04/2010 08:00:43
#339758 Resposta escolhida
Public Const Arquivo = [Ô]Dados.MDB[Ô]
Public Const Diretório = [Ô]dirdosistema[Ô]


Sub Inicialização(FlagDeInicialização As Integer)

Dim Usuários As Recordset

Dim TmpPath, tmp As String
Dim i%

OcultarForm

[ô]Aguardar [Ô]Verificando Unidade de Trabalho!!![Ô]

For i% = 67 To 90
[ô]MsgBox [Ô]Procurando o Arquivo [Ô] & Arquivo & Chr(10) & Chr(10) & [Ô] na Rede em [ô] [Ô] & Chr(i) & [Ô] [ô] Diretorio [Ô] & Diretório

TmpPath = Chr(i%) & [Ô]:\[Ô] & Diretório

On Local Error Resume Next

tmp = Dir(TmpPath, vbDirectory)

If tmp <> [Ô][Ô] Then
tmp = Dir(TmpPath & [Ô]\[Ô] & Arquivo)
If tmp <> [Ô][Ô] Then
Caminho = TmpPath & [Ô]\[Ô]
Exit For
End If
End If

Next

On Local Error GoTo 0

If Caminho = [Ô][Ô] Then
MsgBox [Ô]Não foi possível inicializar o aplicativo, pois o diretório de trabalho não foi localizado!!![Ô], vbOKOnly [ô]+ vbinformatio
End
End If
End Sub

para chamar :
Inicialização False
qloc = Mid(Caminho, 1, 3)

VE SE AJUDA
Tópico encerrado , respostas não são mais permitidas
Voltar