FSO: rinominare tutti i file di una cartella

[asch]

Ciao,
devo rinominare tutti i file che sono dentro una cartella.
Ho provato in questo modo ma ho errore:

Errore: File not found
Errore: File not found
Errore: File not found
Errore: File not found

Cosa sbaglio?

<%
Percorso = "D:\home\www\cgi-bin\rinomino_img\"

If Right(Percorso,1) <> "\" then Percorso = Percorso & "\"

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Percorso)
Set fc = f.Files


For Each whatever in fc
	Nome_File = Trim(whatever.name)
	If Nome_File <> "" Then Numero_File = Numero_File + 1


vecchionome = Nome_File

Estensione = Mid(LCase(vecchionome), InStrRev(vecchionome, "."))
SenzaEstensione = Replace(vecchionome, Estensione, "")

nuovonome = SenzaEstensione + "_ant" + Estensione

on error resume next

	Set Fso = Server.CreateObject("Scripting.FileSystemObject")

		Fso.moveFile vecchionome, nuovonome

		if err.Number=0 then 
 		 Response.Write "

File " & NomeFile & " rinominato con successo</p>"	
		else 
 		 Response.write "

Errore: " & err.description &"</p>"
		end if 

	Set Fso = Nothing


Next
set fs = Nothing 

%>