[VB6] Errore path e curdir

[sintax_error]

Ho un problema con un'applicazione che gira da drive CDROM
con Windows 98 mentre con Windows Xp va benone
mi spiego meglio:
Ho un file .exe che viene eseguito dal drive Cdrom, ho usato Curdir
e con windows Xp funziona bene impostando bene il path del tipo:
d:\menu.exe.
Il problema e che la stessa applicazione se gira con Windows 98
mi sbaglia la path con CurDir mi crea un path del Genere:
D:\\menu.exe quindi mi da errore,con 2 slash.
ho provato ad usare allora app.path ma il problema e inverso cioe' con app.path sul 98 va bene mentre sul Windows Xp mi sbaglia il path.
Come posso risolvere questo fastidioso problema ,calcolando che il file .exe sta nella root del CD.
Grazie in anticipo

[Mabi]

Non ho mai provato questa incompatibilità però potresti intervenire tu dove il sistema restituisce l'errore utilizzando una funzione che corregge l'errore :

Private Function PathOK(ByVal Path As String)
Dim PosCar1 As Long
Dim PosCar2 As Long

PosCar1 = InStr(1&, Path, "\")
Do Until PosCar1 <> 1   'Elimina eventuali "\" iniziali
  Path = Mid(Path, 2&)
  PosCar1 = InStr(1&, Path, "\")
Loop

Do Until (PosCar1 = 0&) 'Elimina i doppi "\"
  PosCar2 = PosCar1
  PosCar1 = InStr(PosCar1 + 1&, Path, "\")
  If PosCar1 = (PosCar2 + 1&) Then
    Path = Mid(Path, 1&, PosCar2) & Mid(Path, (PosCar1 + 1&))
  End If
Loop
PathOK = Path
End Function

[sintax_error]

Gazie
provo
ci ao

[Mabi]

Prego
Fammi sapere