fehler über netzwerk
27.12.2005 09:36:54
lexika
kann mir vielleicht jemand sagen was man tun muß damit die neuste datei gefunden wird?
Das Laufwerk Z ist ein Netzlaufwerk. habe es auch schon direkt mit \\ probiert hat aber auch nicht funktioniert.
Public Const Pfad1 = "Z:\1\"
Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
ChDrive Pfad1
ChDir Pfad1
fn = Dir(Pfad1 & "*.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