script to timestamp and delete files 1

[tylerdurden68]

I have a common network share (Win2k server) that users are starting to fill up. It was intended as a temporary storage location, so I wanted to have a method to delete files after they had been on the share for 90 days. Is there a simple way to do this with a script? Basically so when someone puts a file on the share it will delete that file 90 days later, not all files in the share at once. I'm not a programmer, so any help is appreciated.

 

[vladk]

tylerdurden68,

Something like that:

Private Sub Command1_Click()
Dim objFSO As New FileSystemObject
Dim objFile As File
Dim objFolder As Folder

Set objFolder = objFSO.GetFolder("Your Share Directory")

For Each objFile In objFolder.Files
MsgBox objFile.Name & " " & objFile.DateCreated

If DateDiff("d", objFile.DateCreated, Date) > 90 Then
objFile.Delete True
End If

Next objFile

Set objFSO = Nothing
Set objFile = Nothing
Set objFolder = Nothing

End Sub

Set a reference to Microsoft Scripting Runtime in your VB project first.

vladk

 

[tylerdurden68]

thanks vlad!