---
title: "Byta filnamn"
type: "forum-thread"
url: "https://www.webforum.nu/amne/program-appar/86061-byta-filnamn"
topic: "Program & appar"
topic_url: "https://www.webforum.nu/amne/program-appar"
author: "Vide"
published: "2003-09-15T17:12:54.000Z"
updated: "2003-09-15T19:08:34.000Z"
replies: 4
views: 296
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/program-appar/86061-byta-filnamn"
---

# Byta filnamn

## #1 — Vide, 2003-09-15T17:12Z

Tja,

Jag söker ett program eller script som kan byta ut alla underscore (\_) till space ( ) rekursivt genom en mappstruktur, tecknen skall bytas på både mappnamn och filnamn.

Någon som vet hur jag skall gå tillväga?

Mvh, Vide

Permalänk: https://www.webforum.nu/p/86061

## #2 — LeonL, 2003-09-15T17:49Z

Kolla in programmet Flash Renamer vetja! :)

Permalänk: https://www.webforum.nu/p/1157063

## #3 — niko, 2003-09-15T17:54Z

Förslag i VBScript. (Används på egen risk.):

```
Sub RemoveUnderScore(fld)
	Set objFolder= objFS.GetFolder(fld)
	For Each File In objFolder.Files
		objFS.MoveFile objFolder.Path & "\" & File.Name, objFolder.Path & "\" & Replace(File.Name, "_", " ")
	Next
	For Each subFld in objFolder.SubFolders
		RemoveUnderScore subFld.Path
		objFS.MoveFolder objFolder.Path & "\" & subFld.Name, objFolder.Path & "\" & Replace(subFld.Name, "_", " ")
	next
end sub

Set objFS = CreateObject("Scripting.FileSystemObject") 
RemoveUnderScore "." 'Kör från mapproten.
```

Döp till "nånting.vbs" och kör från toppen av mappstrukturen.

Permalänk: https://www.webforum.nu/p/1157065

## #4 — Vide, 2003-09-15T18:37Z

Funkade perfekt niko! Tack! :)

Permalänk: https://www.webforum.nu/p/1157083

## #5 — niko, 2003-09-15T19:08Z

Varsågod. Kom på att det kanske inte skadar med:

```
Sub RemoveUnderScore(fld)
	on error resume next
	' ..
```

om det skulle finnas filer/mappar som är låsta av operativet.

Permalänk: https://www.webforum.nu/p/1157110

---

Tråden på webben: https://www.webforum.nu/amne/program-appar/86061-byta-filnamn