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

---

Simple Photography

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

---

Vir prudens non contra ventum mingit

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

---

Μην αφήνετε τα media να σας "ταΐζουν"!

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

---

Simple Photography