renaming many files

[dimava]

I have a lot of files in a folder, and most of the filenames contain underscrolls _ how would i rename all the files without the underscrolls

thanks

-Dimava

[dimava]

umm ok, what if i want to replace the _ with a space

[chrisjk]

replace the If block in the middle with this

If InStr(1, MyName, "_", vbTextCompare) > 0 Then
                NewName = Replace(MyName, "_", " ")
                Name MyPath & MyName As MyPath & NewName
            End If