Hallo an Alle

Ich bin der Ecky und habe eine Frage zu einem Code der hier gepostet wurde.
Der Code funktioniert einwandfrei es geht darum das ich die Datei was gespeichert wird mit dem Namen: Datum Uhrzeit .xml Speichern möchte.
Also zum Beispiel 19072024205112.xml und beim nächsten Mal dann 19072024205622.xml und dann 20072024080510.xml
Aber ich komme nicht dahinter was ich bei "" Const strFile As String = "D:\Mieterdatenbank\Versuch\test.txt" " dann hineinschreiben muss das es klappt.
Alles, was mir mit meinem kleinen Wissen einfällt, führt nur zu einem Error und mit der Suche bin ich nicht fündig geworden.
Ich würde mich freuen, wenn mir jemand Helfen kann .
Dafür schon mal vielen Dank. ;-)
Hier der Code aus dem Beitrag hier im Forum

Sub tt()
prcDatenExport Sheets("Daten")
End Sub

Sub prcDatenExport(wks As Worksheet)
Dim vntData, vntTmp(), strTmp As String, intfile As Integer
Dim i As Long, j As Long
Const strFile As String = "D:\Mieterdatenbank\Versuch\test.txt" 'anpassen
Const strDelim As String = vbTab 'Trennzeichen Tab
intfile = FreeFile
vntData = wks.Range("A1").CurrentRegion
ReDim vntTmp(1 To UBound(vntData, 2))
Open strFile For Output As intfile
For i = 1 To UBound(vntData)
For j = 1 To UBound(vntData, 2)
vntTmp(j) = vntData(i, j)
Next
strTmp = Join(vntTmp, strDelim)
Print #1, strTmp
Next i
Close intfile
End Sub