files + undermappar

Hur ska jag göra så att denna koden inte bara ändrar i root-mappen, utan också i mappens undermappar OCH undermapparnas undermappar

-----------------------------------------------------------

    For Each objFile In objFolder.Files
        orgName = objFile.Name
        strName = objFile.Name
        tmpName = "tempMp3Name.mp3"

        strName = Replace(strName, "rmx", "Remix", 1, -1, vbTextCompare)
        strName = Replace(strName, "remix", "Remix")
        strName = Replace(strName, "\_", " ")
        strName = Replace(strName, " - ", "-")
        strName = Replace(strName, "-", " - ")

        arrName = Split(strName)
        For i = 0 To UBound(arrName)
            arrName(i) = ProperCase(arrName(i))
        Next
        
        strName = Join(arrName)

        if orgName = strName then
            countOk = countOk + 1
        else
            countChanged = countChanged + 1
            objFile.Name = tmpName
            objFile.Name = strName
            response.Write "\<font face=""verdana"" size=""1"" color=""#EEEEEE""\>" & orgName & ""
            response.write " -\> " & strName & "\<BR\>" & vbCrLf
        end if
    Next