Byta filnamn

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

Kolla in programmet Flash Renamer vetja! :)

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.

Funkade perfekt niko! Tack! :)

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.