Λοιπά θέματα

Απ: Batch για διαγραφή log files παλιότερων των 30 ημερών

dimkasta — Thu, 16 Feb 2006 22:33:05 GMT

Eίναι άχετα custom logs.
Bρήκα αυτό και δουλεύει μια χαρά. Σώστε το σε ένα αρχείο τχτ και αλλάξτε την κατάληξη σε vbs.

Dim fso, fldr, fc, f1 'fldname, usrname, srcFile

set FSO = Wscript.CreateObject("scripting.FileSystemObject")

fldname = "D:\logsTest" '<---- change to top directory

Const DateofFile=-30 '<----- age of deleted files

DeleteFiles = FSO.GetFolder(fldname)

Set fldr = fso.GetFolder(fldname)

Recurse fldr

Set fldr = Nothing

Set fso = Nothing

wscript.echo "Files Deleted Successfully"

Wscript.Quit

Public Sub Recurse( ByRef fldr)

dim subfolders,files,folder,file

Dim srcFile

Set subfolders = fldr.SubFolders

Set files = fldr.Files

For Each srcfile in files

If DateDiff("d", Now, srcFile.DateLastModified) < DateofFile Then

FSO.DeleteFile srcFile, True

End If

Next

'************** Recurse all of the subfolders.

For Each folder in subfolders

Recurse folder

Next

'************** Deletes empty folders

if (fldr.files.count = 0) and (fldr.subfolders.count) = 0 then

on error resume next

fldr.delete

exit sub

end if

End Sub

Απ: Batch για διαγραφή log files παλιότερων των 30 ημερών

Mitsaras — Wed, 15 Feb 2006 21:26:44 GMT

Υποθέτω εννοεί τα logs του Event log. Στην περίπτωση αυτή όμως, το Event log έχει auto-pruning δυνατότητα.

Απ: Batch για διαγραφή log files παλιότερων των 30 ημερών

KelMan — Wed, 15 Feb 2006 21:00:05 GMT

Τι log files; Από κάποιο application ή IIS/SQL Server; Σε VBScript κάτι;

Batch για διαγραφή log files παλιότερων των 30 ημερών

dimkasta — Wed, 15 Feb 2006 20:06:59 GMT

Θέλω ένα σκριπτάκι που να σβήνει από ένα φάκελο τα log-files που είναι παλιότερα από ένα μήνα.
Η σκέψη μου είναι να το κάνω απλά ένα scheduled task και να τρέχει αυτόματα κάθε βράδυ.
Μπορεί να με βοηθήσει κάποιος γιατί δεν έχω ιδέα από scripts?
Thanks in advance
Δημήτρης