VBS script to delete files which are older than 30 days

[rock786143]

I'm new to VBS.
I would like to delete files which are older than 30 days including folders automatically.
my folders structure is given below:


c:\path\archive\daily\YYYY-MM-DD
c:\path\archive\weekly\YYYY-MM-DD

i want to search under c:\path\archive\daily
c:\path\archive\weekly and delete the folders which are older than 30 days.

I appreciate if you could help me how to write a VBS or a batch script.

 

[GrimR]

tyr google "vbscript older than 30 days"

MCITP:EA/SA, MCSE, MCSA, MCDBA, MCTS, MCP+I, MCP

 

[jessiejane]

Try this code to delete files from a folder:

Private Sub DeleteFiles(ByVal DirectoryPath As String)
Dim files As String() = IO.Directory.GetFiles(DirectoryPath & "folder") - which folder you want to delete
For Each CurrentFile As String In files
Dim FileInfoDate As Date = IO.File.GetLastWriteTime(CurrentFile)
If FileInfoDate < Now.AddDays(-30) Then
IO.File.Delete(CurrentFile)
End If
Next

End Sub

 

[PHV]

jessiejane, your code is far away from VBScript ...