[VB6] Exe in autorun da cd... come settare il percorso per arr ad una cartella

[Alethesnake]

Originariamente inviato da Mabi
Su hd funziona perchè lo esegui da una sottocartella.
Con percorso = App.Path & "\db\" non trovandoti in una sottocartella avrai percorso = X:\\db\
Devi quindi controllare o la lunghezza di App.Path o l'ultimo carattere di App.Path se è \:

Dim Percorso As String

Percorso = App.Path
If Len(Percorso) <> 3 Then
  Percorso = Percorso & "\"
End If
Percorso = Percorso & "db\"

Azz, non avevo pensato a farmi scrivere il risultato dell'app.path.
Grazie!
:metallica