Re: Textdatei per Macro bearbeiten
25.06.2002 15:57:49
Dirk
Hallo Michael,folgende Lösung entspricht Deinen Anforderungen:
Ersetze die "Quelle=..."- und "Ziel=..."-Zeilen durch das hier:
Quelle = SucheAktuellsteDatei(Quellpfad)
Ziel = Zielpfad & DateiMonat(Quelle) & ".TXT"
Füge die beiden folgenden Zeilen darüber ein:
QuellPfad = "C:\"
ZielPfad = "C:\"
...und der Rest kommt ganz unten drunter.
Function SucheAktuellsteDatei(Quellpfad)
DIM Dateien, Datei, aktuellsteDatei
altDatum = "00-0000"
Set Ordner = Dateiobjekt.GetFolder(Quellpfad)
SET Dateien = Ordner.Files
IF Dateien.Count <> 0 Then
FOR EACH Datei IN Dateien
SET DateiInfo = Dateiobjekt.GetFile(Datei)
DateiName = DateiInfo.Name
IF RIGHT(DateiName,21) = " Stempelübersicht.txt" AND LEN (DateiName) = 28 THEN
Datum = LEFT(DateiName,7)
IF Datum > altDatum THEN
neustesDatum = Datum
aktuellsteDatei = Datei
END IF
altDatum = Datum
END IF
Next
SucheAktuellsteDatei = aktuellsteDatei
End If
SET Ordner = NOTHING
SET Dateien = NOTHING
SET DateiInfo = NOTHING
End Function
Function DateiMonat(Datei)
DIM Monatsnamen
Monatsnamen = Array("JANUAR","FEBRUAR","MÄRZ","APRIL","MAI","JUNI","JULI","AUGUST","SEPTEMBER","OKTOBER","NOVEMBER","DEZEMBER")
SET DateiInfo = Dateiobjekt.GetFile(Datei)
DateiName = DateiInfo.Name
DateiMonat = Monatsnamen(LEFT(DateiName,2)-1)
SET DateiInfo = NOTHING
END Function
Jetzt noch Quell- und Zielpfad anpassen und testen.
Viel Spaß
Dirk