Omdøb filnavn med FSO

Hej

Jeg har problem med at omdøbe et filnavn ved hjælp af FSO.
Koden ser således ud:

ImageDir = "../../images/udstyr/"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

For Each Image In objFiles
    filnavn = Image.Name
    objFiles.Name = replace(filnavn," ","_")
Next
Set fso = Nothing


Når jeg afvikler koden kommer følgende fejlkode:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objFiles.Name'

Håber der er en der kan hjælpe.