'Rename ALL files to UCASE
On Error Resume Next 

Set fso = CreateObject("Scripting.FileSystemObject")
myFolder = ""
' Input via Arguments
If WScript.Arguments.Count > 0 then
	If fso.FolderExists(WScript.Arguments.Item(0)) Then 
		myFolder = WScript.Arguments.Item(0)
	End If
End if
'Input via Explorer
If myFolder = "" Then 
	Set SA = CreateObject("Shell.Application")
	Set f = SA.BrowseForFolder(0, "Choose a folder", 0, "c:\")
	If (Not f Is Nothing) Then
	    myFolder =  f.Items.Item.Path
	End If
End If

If myFolder <> "" Then
	Set outFile = FSO.CreateTextFile("C:\found.txt", True)
	Call ShowSubFolders(FSO.GetFolder(myFolder))
	Call ProcFolder(FSO.GetFolder(myFolder))
	outFile.Close
	Set outFile = Nothing
	Msgbox "All Done"
Else 
	Msgbox "Exit"
End If

'Recursively loop through all folders 
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Call ProcFolder(Subfolder)'  <- Action here
        ShowSubFolders Subfolder
    Next
End Sub

'Loop through all the files in the folder
Sub ProcFolder(dFolder)
	For Each dSubfolder In dFolder.SubFolders
		'If ((Now - dSubfolder.DateCreated) < 2) then ' <- Filter here
			OutFile.WriteLine dSubfolder & " , " & Now - dSubfolder.DateCreated
		'End If 
	Next
End Sub