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
Hallo,
mit
Currentproject.Path
erhältst Du den Verzeichnisnamen, in dem die DB-Anwendung akt. ausgeführt wird
Vielen Dank! ;)
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). ???
probiermal Shell ("C:\Programme\GPS-Track-Analyse-6\GPS-Track-Analyse.NET " & strpath & [Index] & ".gpx")
Super! Jetzt funzts ;D
Vielen Dank