Hilfe! Log-Files verschieben nach 10 Tagen

[MichBeck]

Tach auch,

ich hab folgendes Problem. Der nette Exchange server schreibt täglich mehrer Log-Files mit ca. 5 MB. Diese Log-Files sollen nach ca. 10 Tagen auf nen anderen Server verschoben werden bzw. irgendwann mal gelöscht werden.

Ich habs soweit geschafft, dass ich die Files die älter wie ein angegebens Datum sind verschiebe. Ganz tolle Wurst, wenn man jedesmal das Script ändern muss.

Ich will eigentlich dass das script das aktuelle datum ausliest 10 tage zurück rechnet (auf WT nicht geachtet) und diese files dann verschiebt.

Hat mir da jemand nen Tipp welche Befehle/Variablen ich da benutzen muss/kann.

Ich bin blutiger anfänger in sachen scripting

thx for help

[Amstelchen]

falls du das mit dem scripting host machst - guck mal in den thread:

http://forum.fachinformatiker.de/showthread.php?t=77512

dort steht das ganze mit 7 tagen.

s'Amstel

[MichBeck]

Cool, danke. Hat mich schon bissl weiter gebracht.

Hab trotzdem noch fragen.

Beim verschieben der Datei mit dem WSH:

wie kann ich angeben das er alle *.log datein verschieben soll?

Zur zeit verschiebt er nur eine, die fest benannt wurde.

##########################################

Option Explicit

Dim FSO

Const DateiNameQuelle="d:\log\logs\twain.Log"

Const DateiNameZiel="d:\log\logmove\twain.Log"

Set FSO = CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(DateiNameQuelle) Then

FSO.MoveFile DateiNameQuelle, DateiNameZiel

WScript.Echo DateiNameQuelle & " wurde nach " & DateiNameZiel & " verschoben."

Else

WScript.Echo DateiNameQuelle & " ist nicht vorhanden"

End If

#################################################

[Amstelchen]

mit den methoden GetFolder des FSO-objektes und einer eigenen funktion FindFiles (die allenfalls auch rekursiv mehrere unterverzeichnisse durchsuchen kann).

s'Amstel