neuste datei
27.12.2005 12:26:45
lexika
kann mir jemand sagen warum ein code mal geht ind mal nicht?
Public Const Pfad2 = "D:\excel\aktuell\Neu\2\"
Public Const Pfad001 = "C:\Klimadaten\1\"
so geht er:
Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
fn = Dir(Pfad2 & "*.csv")
Do While fn <> ""
fd = Replace(fn, ".csv", "")
If IsDate(fd) Then
If CDate(fd) > d Then
d = CDate(fd)
fNeu = fn
End If
End If
fn = Dir()
Loop
NeuesteDatei = fNeu
End Function
und so nicht:
Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
fn = Dir(Pfad001 & "*.csv")
Do While fn <> ""
fd = Replace(fn, ".csv", "")
If IsDate(fd) Then
If CDate(fd) > d Then
d = CDate(fd)
fNeu = fn
End If
End If
fn = Dir()
Loop
NeuesteDatei = fNeu
End Function
Danke
Anzeige