--- title: "File-Rename-Script" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/106018-file-rename-script" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Frexuz" published: "2004-06-22T22:56:35.000Z" updated: "2004-06-24T14:47:06.000Z" replies: 7 views: 270 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/106018-file-rename-script" --- # File-Rename-Script ## #1 — Frexuz, 2004-06-22T22:56Z scriptet ska ändra namn på filer i bestämd mapp varje ord ska börja med stor bokstav alla understreck\_ ska replace'as med ett mellanrum och "rmx" ska replace'as med "Remix" resten av namnet ska vara som det är =) Permalänk: https://www.webforum.nu/p/106018 ## #2 — Sebbe, 2004-06-22T23:16Z Är det ungefär såhär du menar? ``` Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("mapp")) For Each File In objFolder.Files arrName = Split(Replace(File.Name, "_", " ")) For i = 0 To UBound(arrName) strName = strName & UCase(Left(arrName(i), 1)) & Mid(arrName(i), 2) & " " Next strName = Replace("rmx", "Remix") File.Name = Trim(strName) Next Set objFolder = Nothing : Set objFSO = Nothing ``` Permalänk: https://www.webforum.nu/p/1371312 ## #3 — Frexuz, 2004-06-22T23:39Z det verkar inte hända så mkt.... sidan laddar o laddar o laddar, men filen ändrar inte namn har testat både server.mapPath och vanlgit Permalänk: https://www.webforum.nu/p/1371318 ## #4 — Sebbe, 2004-06-23T10:18Z Har du Norton Antivirus installerat på datorn? Permalänk: https://www.webforum.nu/p/1374615 ## #5 — Frexuz, 2004-06-23T11:38Z ja..det var felet med funkar fortfarande inte har fixat annan kod.....felet: \--------------------------------------- "filen finns redan" line 45 objFile.Name = strName \--------------------------------------- ``` <% Function ProperCase(Value) ProperCase = UCase(Left(Value, 1)) & LCase(Mid(Value, 2)) End Function Sub FixNames(Path) Dim objFSO Dim objFile Dim objFolder Dim strName Dim arrName Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder("C:\Mp3") For Each objFile In objFolder.Files orgName = objFile.Name strName = objFile.Name Response.Write strName & " -> " '** '* Ersätter "rmx" till "Remix" '** strName = Replace(strName, "rmx", "Remix", vbTextCompare) '** '* Ersätter "_" till " " '** strName = Replace(strName, "_", " ") strName = Replace(strName, " - ", "-") strName = Replace(strName, "-", " - ") '** '* Formaterar ord '** arrName = Split(strName) For i = 0 To UBound(arrName) arrName(i) = ProperCase(arrName(i)) Next strName = Join(arrName) if orgName = strName then response.write "" else objFile.Name = strName end if Response.Write strName & "
" & vbCrLf Next Response.Write " - Done -
" & vbCrLf Set objFolder = Nothing Set objFSO = Nothing End Sub FixNames("C:\Mp3") %> ``` Permalänk: https://www.webforum.nu/p/1374653 ## #6 — Hulth, 2004-06-23T16:50Z Testa med den koden du fick av sebbe.. Den borde fungera.. Och scriptblockering i norton antivirus är farliga saker. Permalänk: https://www.webforum.nu/p/1374784 ## #7 — Frexuz, 2004-06-24T05:36Z Feltyp: Körningsfel i Microsoft VBScript (0x800A003A) Filen finns redan. /rename/default2.asp, line 13 \= File.Name = Trim(strName) \----------------------------------------------------------- och strName = Replace("rmx", "Remix") ska väl vara strName = Replace(strName, "rmx", "Remix") ? Permalänk: https://www.webforum.nu/p/1374966 ## #8 — Frexuz, 2004-06-24T14:47Z Lösning: Ändra filens namn till ett temp-namn, och sen till nya. Hur enkelt som helst var det ju :( Permalänk: https://www.webforum.nu/p/1375269 --- Tråden på webben: https://www.webforum.nu/amne/asp/106018-file-rename-script