mit shellexecute datei pfadunabhängig öffnen

[ritzenflitzer]

Hallo

ich öffne folgendermaßen aus AC10 Dateien:

Private Sub Befehl45_Click()

If Index.Value = 0 Then
MsgBox ("Bitte wählen Sie eine Streckennummer > 0 aus")
Kombinationsfeld26.SetFocus
Else
Shell ("C:\Programme\GPS-Track-Analyse-6\GPS-Track-Analyse.NET C:\Users\Müller\Radtourenpläne\GPX Dateien Katalogstrecken\" & [Index] & ".gpx")
End If

End Sub

Gibt es eine Möglichkeit die Pfadangabe an dieser Stelle zuersetzen, sodass die Dateien unabhängig von der Umgebung sofern im gleichen Verzeichnis liegend, geöffnet werden können?

Grüße

[DF6GL]

Hallo,

mit
Currentproject.Path
erhältst Du den Verzeichnisnamen, in dem die DB-Anwendung  akt. ausgeführt wird

[ritzenflitzer]

Vielen Dank!

[ritzenflitzer]

Jetzt hab ich aber doch noch ein Problem. Die Anwendung startet zwar, findet dann aber nicht die Datei:


Private Sub Befehl45_Click()

Dim strpath As String

strpath = Application.CurrentProject.Path & "\GPX Dateien Katalogstrecken\"
If Index.Value = 0 Then
MsgBox ("Bitte wählen Sie eine Streckennummer > 0 aus")
Kombinationsfeld26.SetFocus
Else
    Shell ("C:\Programme\GPS-Track-Analyse-6\GPS-Track-Analyse.NET  strpath" & [Index] & ".gpx")
End If

End Sub

Ich weiß nicht, wo da der Fehler liegt, gesucht wird dann z.B. eine Datei strpath12.gpx (wenn 12 der Index wäre).

[daolix]

probiermal

Code [Auswählen] Erweitern

Shell ("C:\Programme\GPS-Track-Analyse-6\GPS-Track-Analyse.NET " & strpath & [Index] & ".gpx")

[ritzenflitzer]

Super! Jetzt funzts

Vielen Dank