kann mir vielleicht jemand sagen wie ich folgenden code verändern muß damit nicht alles doppelt eingelesen wird?
Function NeuesteDatei() As String
Const Pfad = "D:\excel\Neu\1\"
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
Dim f_csv As String, f_cxv As String
fn = Dir("D:\excel\Neu\1\*.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
f_csv = Pfad & fNeu
f_cxv = Pfad & Replace(fNeu, ".csv", ".cxv")
If Not fNeu = fn Then
On Error Resume Next
Name "D:\excel\Neu\1\versuch.csv" As "D:\excel\Neu\1\versuch.cxv"
On Error GoTo 0
Name f_csv As f_cxv
On Error Resume Next
Kill "D:\excel\Neu\1\*.csv"
On Error GoTo 0
Name f_cxv As f_csv
On Error Resume Next
Name "D:\excel\Neu\1\versuch.cxv" As "D:\excel\Neu\1\versuch.csv"
On Error GoTo 0
ChDrive "D:\"
ChDir "D:\excel\Neu\1\"
ShellWait "D:\excel\Neu\1\test.bat", 1
On Error Resume Next
Kill "D:\excel\Neu\1\versuch.csv"
On Error GoTo 0
Dim Quelle As String, Ziel As String
Quelle = "D:\excel\Neu\1\gesamt.csv"
Ziel = "D:\excel\Neu\1\versuch.csv"
FileCopy Quelle, Ziel
End If
Name "D:\excel\Neu\1\versuch.csv" As "D:\excel\Neu\1\versuch.cxv"
Name f_csv As f_cxv
Kill "D:\excel\Neu\1\*.csv"
Name "D:\excel\Neu\1\versuch.cxv" As "D:\excel\Neu\1\versuch.csv"
Name f_cxv As f_csv
NeuesteDatei = fNeu
End Function
die neuste´datei wird in versuch gespeichert wenn ein button gedrückt wird kommt am nächsten tag eine neue datei dazu wird die alte gelöscht. drückt man den button aber mehrmals hintereinander wird immer wieder die gleiche datei in die datei versuch geschrieben welche dann recht schnell sehr groß wird. die neuste datei wird täglich alle halbe stunde um ein paar zeilen größer.
Danke