[VB6] Indirizzo di files di un programma

[spider75]

Salve a tutti. Avrei una domanda.
E' possibile stabilire quale sia il percorso di un file mdb, al quale fa riferimento il programma, dopo aver installato il programma (ovvero senza scrivere un indirizzo fisso nel codice)?
Ho provato con app.path ma il file in questione, essendo già stato creato da un altro programma e non potendolo spostare, non potrà mai trovarsi nella cartella del programma che sto facendo adesso.
Grazie.

[oregon]

Dipende da come il programma fa riferimento al db. Dove sta questa informazione?

[spider75]

si trova in un modulo

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Sub connetti()
   With Cn
      .ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
                          "Data source = indirizzo\database.mdb;" & _
                          "Jet OLEDB: Database Password=xxx"
                          
                          
      .ConnectionTimeout = 5 
      .CursorLocation = adUseClient 
      .Mode = adModeShareDenyNone '
      .Open 
   End With
   With Rs
      .ActiveConnection = Cn 
      .LockType = adLockOptimistic 
   End With
End Sub

[Grumpy]

Il metodo più comunemente usato consiste nello scrivere il percorso in un file di testo (generalmente .INI) e di leggerlo a run-time mediante l' API GetPrivateProfileString (o un suo wrapper).

[spider75]

Innanzitutto grazie Grumpy di aver risposto.
Ma potresti farmi possibilmente qualche esempio?
Non è che sono molto esperto.

[Grumpy]

Google -> file ini vb6.
Uno a caso tra le migliaia di risultati trovati: http://www.marcopipino.it/visualbasi...onefileini.php

[spider75]

ok grazie.