vbs-Skript-Erweiterung

[Tiro]

Hallo zusammen,

ich bräuchte mal ein bißchen Hilfe.

von der c't habe ich ein kleinens vbs-Skript in Gebrauch, daß Dateien in Ordnern nach Alter löscht.

Jetzt hätte ich gern die Einschränkung, daß das Skript in dem Verzeichnis nur die alten Dateien mit der Endung "txn" löscht.

Mein Kenntnisse sind gerade ausreichend, um es für meine Zwecke anzupassen. Erweitern wird knifflig :-)

Wer kann mir da bitte auf die Sprünge helfen?

Der relevante Teil des Skripts dürfte das sein:

For Each datei In dateien

    If datei.DateLastModified < (heute - Aufheben) Then

    datei.Delete

 End If

Danke vorab

T

[lupo49]

Du musst die IF-Abfrage mittels AND-Operator erweitern um

LCase(datei.Name) = "*.txn"

(Nicht getestet!)

[Eratum]

Gib mal laut, ob das so funktioniert. Das Wildcards dort in dem Sinne nutzbar sind, ist mir jedenfalls nicht bekannt...

Wenn das nicht geht kannst du's über:

Instr(LCase(datei.Name), ".txn")

probieren...

Mfg Erratum

[Tiro]

  For Each datei In dateien

    If datei.DateLastModified < (heute - Aufheben) and lcase(datei.Name) = "*.TXN" then

    datei.Delete

    End If

tut's nicht.

[Tiro]

(heute - Aufheben) and Instr(LCase(datei.Name), ".txn") then

Das hat funktioniert.

Saubere Leistung!

Danke

T