Omdøbe mappenavn

Og har selvfølgelig også kigget på den her:
http://www.eksperten.dk/spm/18111

Men mangler så bare at finde de mapper...

de mapper = de mappenavne

Jeg har lige testet denne kode på min PWS. Den finder og ændre alle filnavne der indeholder æøå. (Jeg har udklamret koden der ændre mappenavnet) Koden viser undermapperne i en mappe og viser hvad den vil ændre mappenavnet til.

<table>
<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.getFolder(Server.MapPath("\test"))
For Each Item in f.SubFolders
  NewName = Replace(Item.Name, "æ", "ae")
  NewName = Replace(NewName, "ø", "oe")
  NewName = Replace(NewName, "å", "aa")
  Response.Write("<tr><td>" & Item.Name & "</td><td>" & NewName & "</td></tr>" & vbCrLf)
  'if NewName <> Item.Name then
  '  item.Name = NewName ' Ændre navnet på mappen
  'end if
Next
%>
</table>

Hvor smukt, jeg prøver det i morgen tidlig...

Som smurt...