Clean up program Windows/Iseries

Scott, I have this code for doing the task. It does 2 folders.
I would like to provide prompting so that the number of days, the folder, 
etc... This would be easy to do in the Iseries but how on Windows? 
Path1 = "C:\Mydocuments"
Path2 = "C:\Program Files\ltest"

Dim fso 
Dim oFolder
Dim oFile
Dim oSubFolder
  Set fso = createobject("Scripting.FileSystemObject")
  
   Set oFolder = fso.GetFolder(Path1)
  
  For Each oFile In oFolder.files
       If DateDiff("d", oFile.DateCreated,Now) > 10 Then
        oFile.Delete True
    End If
  Next

Set oFolder = fso.GetFolder(Path2)
Set colSubfolders = oFolder.Subfolders
For Each oSubfolder in colSubfolders
       If DateDiff("d", oSubFolder.DateCreated,Now) > 10 Then
        fso.DeleteFolder(oSubFolder)
    End If
Next
Set oSubFolder = Nothing
Set oFolder = Nothing
Set fso = Nothing