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

[Mabi]

Originariamente inviato da Alethesnake
Non so spiegarmi perché non funziona, io ho scritto:

percorso = App.Path & "\db\"

Ma quando l'exe si trova su cd mi da path not found (su hd funziona)

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\"