Har denne linje skal ændres til at imdlæs en txt fil

skal linke den den nyest .txt fil fra en bestemt mappe txt filen har ikke samme navn

Sub OpretTextLink(TabelNavn As String)
  Const Mappe = "C:\Temp\txt\"
 
  Dim d As String
  Dim FilTid As Date
  Dim SidsteDato As Date
  Dim SidsteFilnavn As String
 
  Dim Db As DAO.Database
  Dim Tbl As DAO.TableDef
 
  ' Find filnavn
  SidsteDato = #1/1/2001#
  SidsteFilnavn = ""
  d = Dir(Mappe & "*.txt", vbNormal)
  Do Until d = ""
    FilTid = DateValue(FileDateTime(Mappe & d))
    Debug.Print d, FilTid
    If FilTid > SidsteDato Then
      SidsteDato = FilTid
      SidsteFilnavn = d
    End If
    d = Dir
  Loop
  Debug.Print SidsteDato, SidsteFilnavn

  ' Opret link
  Set Db = CurrentDb()
  Db.TableDefs.Delete TabelNavn
  Set Tbl = Db.CreateTableDef(TabelNavn)
  Tbl.Connect = "Text;DATABASE=" & Mappe & ";TABLE=" & SidsteFilnavn
  Tbl.SourceTableName = SidsteFilnavn
  Db.TableDefs.Append Tbl
  Db.TableDefs.Refresh
  Db.Close
  Set Db = Nothing
End Sub

... og så glemte jeg jo lige at slette Debug.Print linierne. Det får du lov til ;o)

Status?

Hej er lige kommet tilbage efter ferie kikke på det i morgen d. 5 feb

Takker for point ;o)