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 

%>

[Roby_72]

Togli on error resume next
Devi capire in quale riga ti da errore...

Roby

[asch]

ok, ho aggiunto

response.Write(vecchionome + " " + nuovonome)

Messaggio risultato:
TK2000.jpg TK2000_ant.jpg

Microsoft VBScript runtime error '800a0035'

File not found

/cgi-bin/FileManager/rinomina_image_ant2.asp, line 49


Fso.moveFile vecchionome, nuovonome <<<<< linea 49

[Roby_72]

TK2000.jpg TK2000_ant.jpg

manca il path, non trova il file... In che cartella stanno questi file?

Roby

[asch]

dentro a "rinomino_img"

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

[Roby_72]

Lo devi aggiungere ai due file peché a quanto pare non lo tiene in considerazione.

Roby

[asch]

ok, ho fatto così ed ora è ok

Fso.moveFile (Percorso+vecchionome), (Percorso+nuovonome)

grazie,
ciao