Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

wo ist der fehler?

wo ist der fehler?
14.10.2005 11:03:54
lexika
HI,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
alte datei löschen
14.10.2005 14:44:54
lexika
HI,
kann mir vielleicht jemand sagen was ich wo hinschreiben muß damit nachdem die neuste datei gefunden wurde die ältere gelöscht wird?

Function NeuesteDatei() As String
Dim fn As String, fd As String
Dim fNeu As String
Dim d As Date
Dim versuch 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
Kill "D:\excel\Neu\1\gesamt.csv"
If Not fNeu = fn And fn <> "gesamt.csv" Then
ShellWait "D:\excel\Neu\1\zusa.bat", 1
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
NeuesteDatei = fNeu
End Function

Danke
Anzeige
AW: alte datei löschen
14.10.2005 14:52:42
lexika
HI,
die dateien versuch.csv, gesamt.csv und die neuste datei dürfen nicht gelöscht werden.
versuch und gesamt werden einzeln gelöscht da sie noch gebraucht werden
Danke
Danke
17.10.2005 09:31:16
lexika
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige