A VBS script for the DIR command for an extended time period _vbs

Set arg=wscript.arguments
If Arg.count=0 Then

WScript.Echo Chr (9) &CHR (9) &space (4) & "Xdir v0.1"
WScript.Echo ""
WScript.Echo Chr (9) & "cscript dir.vbs path time1 time2 ext"
WScript.Echo Chr (9) & "cscript dir.vbs d:\test 20080101 Doc"
Wscript.Quit
End If
Path=arg (0)
Time1=arg (1)
Time2=arg (2)
Ext=arg (3)
Filetotal = 0
Dirtotal = 0
Filetotalsize=0
Timespend = Timer
Myfind Path
Timespend = Round (timer-timespend,2)
Txtresult = "Search Complete!" & vbCrLf & to find Files: "& Filetotal &". "& vbCrLf &" Search directory: "& Dirtotal ; "A." &vbcrlf& "Total size of files" &formatnumber (filetotalsize/1024,0) & "KB" & vbCrLf & "When:" & Timespend & "seconds."

WScript.Echo Txtresult

Sub Myfind (ByVal thepath)

Dim FSO, MyFolder, MyFile, CurFolder
Set FSO = WScript. CreateObject ("Scripting.FileSystemObject")
Set curfolders = Fso.getfolder (thepath)
Dirtotal = dirtotal + 1
If curFolders.Files.Count > 0 Then
For each myFile in Curfolders.files
If InStr (1, LCase (Fso.getextensionname (myfile.name)), ext) > 0 and Gtime (myfile.datecreated) >time1 and Gtime ( myfile.datecreated) <time2 Then
WScript.Echo Formatpath (thepath) & "\" & myFile.Name
Filetotal = filetotal + 1
Filetotalsize = filetotalsize + myfile.size
End If
Next
End If

If curFolders.subfolders.Count > 0 Then
For each myFolder in Curfolders.subfolders
Myfind Formatpath (thepath) & "\" & Myfolder.name
Next
End If

End Sub

Function Formatpath (ByVal thepath)

Thepath = Trim (thepath)
Formatpath = Thepath
If Right (thepath, 1) = "\" Then Formatpath = Mid (Thepath, 1, Len (thepath)-1)

End Function


Function Gtime (str)
Str=formatdatetime (str,2)
Str1=split (str, "-", -1,1)
If Len (str1 (1)) =1 then str11= "0" &str1 (1)
If Len (str1 (2)) =1 then str12= "0" &AMP;STR1 (2)
GTIME=STR1 (0) &str11&str12
End Function