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