Pfad relativ angeben in VBA?

[o0Julia0o]

hi, so gebe ich einen Pfad erfolgreich an in VBA:

Code:

Sub Sound()
Dim strFile As String
strFile = "D:\Daten\Sounds\a.wav"
ShellExecute &O0, "open", strFile, vbNullString, vbNullString, SW_SHOWCMD
End Sub

Wenn ich die Exceldatei im Ordner:

Code:

D:\Daten\Sounds\

liegen habe, kann ich dann den Pfad zur a.wav irgendwie relativ angeben? Also wenn die a.wav im gleichen Verzeichnis wie die Exceldatei liegt?

Wenn ich die entsprechende Codezeile so abänder, klappt das nicht:

Code:

strFile = "a.wav"

[Kuwer]

Hallo,

strFile = ThisWorkbook.Path & "\a.wav"

Gruß Uwe