Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder("SOME_DIR")

Sub ShowSubFolders(Folder)
For Each File in Folder.Files 
Fname = File.name
  If LCase(FSO.GetExtensionName(Fname))="jtd" Then 
    Set objWord = CreateObject("Word.Application")
'    objWord.Visible = True
    Fwname = Folder + "\" + Fname
'    WScript.Echo Fwname
    Set objDoc = objWord.Documents.Open(Fwname)
    Fnewdoc = Folder + "\" + Fname + ".doc"
    objDoc.SaveAs(Fnewdoc)
    objWord.Quit
  End If
Next

For Each Subfolder in Folder.SubFolders 
 ShowSubFolders Subfolder 
Next
End Sub

Wscript.Echo "End"