4 svar · 296 visningar · startad av Vide
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.