FTP bereinigen mit VBS

CJaay · 05.04.2005

Weil die Daten auf dem FTP-Server nur temporär sind muss dafür gesorgt werden das sie sich nicht anhäufen und gelöscht werden.

Um denn FTP zu bereinigen muss eine Scriptdatei gemacht werden die alle Dateien die vor dem Zeitpunkt X erstellt wurde löscht.

ich kann Dateien mit meinem Script löschen die älter als x Tage sind leider schaffe ich es nicht die verschiedenen Ordner im Verzeichnis auch zu dursuchen und die entsprechenden Dateien darin zu löschen

Verzeichnis = C:\abfrage\ergebnis -> Bilder-Verzeichnis
Tage = 1
' Ende der Anpassungen
Set fso = CreateObject(Scripting.FileSystemObject)
Set ordner = fso.GetFolder(Verzeichnis)
Set dateien = ordner.Files
heute = Date()
For Each datei In dateien
If datei.DateLastModified < (heute - Tage) Then
datei.Delete
End If
Next

das ist mein momentaner Code, könnt ihr mir helfen?

Christian Schlettig · 13.05.2005

Code:

' VBScript source code
' for deleting files recursive older than Tage days

Tage = 2
pfad = D:\backup\mssql2000\

set fso = CreateObject(Scripting.FileSystemObject)
set Ordner = fso.GetFolder(pfad)


'MsgBox Ordner.Path

rek Ordner.Path

sub rek ( rpfad )
	set fso = CreateObject(Scripting.FileSystemObject)
	set Ordner = fso.GetFolder(rpfad)
	for each sf in Ordner.SubFolders
		Set dateien = sf.Files
		heute = Date()
		For Each datei In dateien
		 If datei.DateLastModified &lt; (heute - Tage) Then
		  datei.Delete
		 End If
		Next
	next 
end sub

FTP bereinigen mit VBS

CJaay

Christian Schlettig

FTP bereinigen mit VBS

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums