Error whil reading file

[Philipp Oberleitner]

I try to get the newest .xls file in a directory. Anyone sees why me method
brings up an error and doesnt find the files ? There are files in the ginven
directory.

Public ZMappe As String

Sub Autpen()

Dim Dat As Date
Dim DatVgl As Date
Dim Mappe As String

Const s = _
"F:\Siemens"
Mappe = Dir(s & "\*.xls")
Dat = FileDateTime(s & "\" & Mappe)

Do Until Mappe = ""
DatVgl = FileDateTime(s & "\" & Mappe)
If DatVgl > Dat Then
Dat = DatVgl
ZMappe = s & "\" & Mappe
End If
Mappe = Dir()
Loop

Workbooks.Open Filename:=ZMappe

End Sub

 

[Tom Ogilvy]

Code worked OK for me.

 

[Philipp Oberleitner]

Hmm
dont understand why it brings error

Code worked OK for me.

 

[Dave Peterson]

Could it be that the first time through it found the newest--and you didn't keep
track of that first filename?

Option Explicit

Sub Autpen()

Dim Dat As Date
Dim DatVgl As Date
Dim Mappe As String
Dim ZMappe As String '<-- added

Const s = _
"c:\temp"
Mappe = Dir(s & "\*.xls")
Dat = FileDateTime(s & "\" & Mappe)

ZMappe = s & "\" & Mappe '<-- added

Do Until Mappe = ""
DatVgl = FileDateTime(s & "\" & Mappe)
If DatVgl > Dat Then
Dat = DatVgl
ZMappe = s & "\" & Mappe
End If
Mappe = Dir()
Loop

Workbooks.Open Filename:=ZMappe

End Sub