Visual Basic Forum

leo · Newbie Anmeldedatum: 30.03.2009 Beiträge: 4

PDF-Dateieigenschaften
Hallo an die Experten, ich habe eine Anforderung welche mich weit überfordert. Ein Ordner beinhaltet PDF-Dateien welche 14 Tage nach Erstellung gelöscht werden sollen.

Kann mir jemand dabei helfen es zu verwirklichen??!!!!!

Bin leider kein Programmierer !!!!!

Geht das auch als Script ( welches ich in eine .txt Datei schreibe und dann die Datei umbenenne!???

DANKE !!!!

gruß leo
_________________

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Du kannst doch von den Eigenschaften der Datei auslesen, wann sie erstellt wurde und dann mit einer If Abfrage einfach die Datein löschen?

Dein Script müssste also so aussehen:
1. Den Ordnerinhalt auslesen.
2. Die Eigenschaften der einzelnen Dateien auslesen
3. Wenn bei einer Datei das Erstellungsdatum älter als 14 Tage ist, löschen.

Sollte jetzt glaube ich alles mit Google zu finden sein, die Schnipsel die du dafür benötigst Wink

Wenn noch Fragen sind kannst du dich ja wieder melden.

lg ZiuX
_________________
ziux[ät]jabber.ccc.de
Z1uX.cn

leo · Newbie Anmeldedatum: 30.03.2009 Beiträge: 4

Danke für deine schnelle Antwort. Ja habe auch beim googeln etwas gefunden, funkt nur leider nicht!!

Ist das richtig, ich schreibe den Code in eine Text-Datei und nenne diese dann um von .txt auf .vbs

Dim WshShell, fso, file

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.shell")
Set file = fso.GetFile("C:\\Test\FAX")

if (DateDiff("d", file.DateCreated, Now)) > 14 Then file.Delete

Das Problem ist, ich habe von VB keine Ahnung ;( !!!

gruß leo

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

leo · Newbie Anmeldedatum: 30.03.2009 Beiträge: 4

Hello, das mit dem löschen klappt schon recht gut. Eine Sache habe ich noch, wie kann ich Abfragen das alles Dateien welche älter als 14 Tage und mit einer bestimmten Endung (.pdf) gelöschte werden sollen!????

DANKE für die HILFE !!!

gruß leo
_________________

b6d · Tutorial Leser Anmeldedatum: 28.01.2009 Beiträge: 31

mit right()

if right(dateiname,3) = "pdf" then ...