renaming many files

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

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

replace the If block in the middle with this

VB Code:

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