Adding Delete Empty Subfolders To Existing Script (W2K)

[SFSterling]

I found this script in the forums and wanted to modify it to delete only files with the txt extension and to remove any empty subfolders in D:\test and E:\test. I would appreciate any help that anyone can provide.

dteCheck = Dateadd("d",-15,date)
REM msgbox dtecheck

set objFileSys=createobject("scripting.filesystemobject")
set objFolder = objfilesys.GetFolder ("D:\Test\")
doFolder objFolder
set objFolder = objfilesys.GetFolder ("E:\Test\")
doFolder objFolder

sub doFolder(myFolder)
set objFiles = myFolder.files
for each objfile in objFiles
if objfile.datelastmodified < dtecheck then
objfile.delete
end if
next
set objFolders = myFolder.subfolders
for each objFolder2 in objfolders
doFolder objfolder2

next
end sub