kann mir vielleicht jemand sagen wo im folgenden code der fehler ist?
Do While fn ""
Dim versuch As String
If fNeu fn And fn "versuch.csv" Then
Kill "D:\excel\Neu\1\" & fn & versuch
ShellAndWait "D:\excel\Neu\1\zusa.bat"
Kill "D:\excel\Neu\1\versuch.csv"
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
fn = Dir()
Loop
als erstes sollen alle dateien bis auf die neuste und versuch gelöscht werden danach soll die batdatei ausgeführt werden die versuch-datei soll gelöscht werden dann soll die gesamt-datei (wurde von der bat-datei generiert) umbenannt werden in versuch.
bis auf die neuste löschen macht er aber die batdatei führt er nicht aus
Danke