Automatisch gemaakte xls verwijderen met VBSCRIPT

[Verwijderd]

Dag Alle,

Ik heb op het werk een XLS bestand gemaakt dat bij het openen een kopie maakt vanzichtzelf.

Dit doet die door de systeemdatum + tijd als naam de nemen. Dit werk goed. Nu wil ik echter de bestanden ouder dan 2 weken ook automatisch verwijderen.

Daarvoor heb ik de volgende code geschreven

code:

Private Sub Workbook_Open()
On Error GoTo erroropvangen
Dim Systeemdatum
Dim Systeemtijd
Dim Path
Dim Extensie
Dim Location
Dim datumcheck

datumcheck = DateAdd("ww", -1, Date)

' MsgBox "" & datumcheck

Systeemdatum = Format$(Date, "dd_mm_yy")


Systeemtijd = Format$(Time, "hh_mm")

Path = "D:\backup\"
Extensie = ".xls"
Location = "" & Path & Systeemdatum & "_" & Systeemtijd & Extensie


ActiveWorkbook.SaveCopyAs Filename:=Location
'MsgBox "" & Location

Set FileSysObj = CreateObject("Scripting.FileSystemObject")

'Verwijder de bestanden met een datum die voor die van datumcheck ligt


GoTo einde




On Error GoTo erroropvangen

erroropvangen:

MsgBox " Er heeft een error plaatsgevonden u kunt gewoon doorwerken enkel er is geenbackup gemaakt"


einde:

End Sub

Nu heb ik het volgende probleem mijn bestanden het dus Systeemdatum+tijd.xls. Maar weet iemand welke IF statment ik moet gebruiken om alle (datums voor de datumcheck).xls te verwijderen.

Heeft iemand hier al eens een scripje voor gemaakt?

Alvast bedankt

[Creepy]

Pak de huidige datum, haal er 14 dagen vanaf en gebruik die datum om de bestandnaam te genereren en verwijder dat bestand als dat bestaat

Loop vervolgens over alle bestanden en check de datum in de filenaam

* Creepy ziet het probleem niet zo?

[Verwijderd]

Ja dacht dat eerst ook zo te doen, maar nu is het zo dat ik de tijd niet weet en aangezien het programma soms meerdere keren op een dag loop gebruik ik dus ook de tijd. Maar kan ook voor komen dat het een paar dagen niet loopt.

Dus als ik het volgende zou doen

deletefile "d:\backup\" &datumcheck & "*.xls"

dan neemt hij wel alle bestanden van die datum ongeacht welke tijd erachter staat.

Oke ik zou dan dus ook meerdere datumvariable kunnen maken waarbij ik dus tot een week terug alle datum verwijder normaal komt er dan geen doorheen. Maar ik had gehoopt dat er een betere manier is om dat te programmeren.

[mulder]

Ik zou eerder de bestanden 'enumeraten', vergelijken en verwijderen totdat de huidige datum is bereikt.

[Verwijderd]

Oke "enumeraten" dus eigenlijk een soort van array maken waarin de datum vervangen worden door een nummer of een code. en dan kan ik dus aan de hand van die code. tot daar verwijderen.

[Creepy]

Waarom denk je zou moeilijk??
Je gaat gewoon alle bestanden af en vergelijkt de datum en tijd in de bestandnaam met de huidige datum en tijd - twee weken.
Daar komt verder geen array of code aan te pas?

Don Facundo bedoelt met "enumeraten": alles afgaan (dus alle bestanden controleren)