Datei wird nicht in angegebenen Ordner gespeichert

Ich verwende folgendes Makros um Diagramme als JPG zu speicher.
Leider werden die Diagramme immer nur direkt auf das Laufwerk D: gespeichert und nicht in den Ordner d:\Bilder\Test.
Sub diagramm()
Dim GDiagramm As Chart
Dim NameT As String
Const path = "D:\Bilder\Test"
Set GDiagramm = ActiveChart
NameT = InputBox("Name der Datei:", "Export Chart")
If NameT <> "" Then
GDiagramm.Export Filename:=NameT & ".jpg"
End If
End Sub

Für Hinweise im Voraus besten Dank.
Thomy