select the files from folder .If created files is before 6month,it must be deleted

Imports Scripting

Dim myObject As New FileSystemObject
Dim afolder As Folder
Dim SHDate, MHDate As DateTime
Dim monthsApart As Integer
Dim f As File


afolder = myObject.GetFolder("E:\\Fileeg")

For Each objFile In afolder.Files

SHDate = Convert.ToDateTime(DateTime.Now.ToShortDateString())
MHDate = Convert.ToDateTime(objFile.DateLastModified)
monthsApart = 12 * (SHDate.Year - MHDate.Year) + SHDate.Month - MHDate.Month
Response.Write(objFile.Name & " : ")
Response.Write(objFile.DateLastModified & "<br>")
If monthsApart>6 Then
objFile.Delete()
End If