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

[Alethesnake]

Salve a tutti,
ho compilato un eseguibile all'interno del quale valorizzo una variabile "percorso" che con App.Path mi si dovrebbe valorizzare con il percorso fisico del form aperto.
Se l'eseguibile è lanciato da una cartella sull'hd non ci sono problemi, ma se cerco di lanciarlo direttamente da cd mi dice "path not found"...

Sapreste dirmi per favore come posso risolvere?

[Mabi]

Se il programma viene eseguito trovandosi su un CD e utilizza la funzione App.Path non riscontra problemi.
Probabilmente dipenderà da altro.

[ale500]

con app.path deve funzionare....

tu come percorso utilizzi app.path oppure la varibile percorso????

[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)

Cmq ho risolto temporaneamente con:

Dim intCiclo As Integer
For intCiclo = Asc("A") To Asc("Z")
        If GetDriveType(Chr$(intCiclo) & ":\db\") = DRIVE_CDROM Then
            percorso = Chr$(intCiclo) & ":\db\"
            Me.Importa.Enabled = False
            Me.Toolbar1.Buttons(2).Enabled = False
            Exit For
        End If
Next intCiclo

If Len(percorso) < 3 Then percorso = App.Path & "\db\"

E' solo un ripiego, ma almeno così funziona

[ale500]

ma percorso fa rifrimento ad una cartella...non deve far riferimento ad un file?????

[Alethesnake]

Originariamente inviato da ale500
ma percorso fa rifrimento ad una cartella...non deve far riferimento ad un file?????

Si, deve fare riferimento ad una cartella.
Sarà poi l'utente a poter scegliere un file da quella cartella.

[ale500]

lo stesso progetto copiato ed incollato in locale ti funzia vero????

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

[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

[Mabi]

Prego