codice:
'tratto da codice di OcchioCrepato*******************
Path="TuaCrtella"
set fso=Server.CreateObject ("Scripting.FileSystemObject")
myRoot=Server.MapPath(Path)
set MyFolder=fso.GetFolder(myRoot)
set MyFile=MyFolder.Files
indice=0
for each elemfile in MyFile
NomeFile=elemfile.Name
redim preserve ArrayFile(indice)
ArrayFile(indice)=NomeFile
indice=indice+1
next
'***********************************************************
for i = 0 to ubound(ArrayFile)
estensione=right(ArrayFile(i),4)
'tutto su una righa da qui*************************************
fso.MoveFile (Path & "\" &ArrayFile(I), Path&"\"&replace(ArrayFile(I),estensione
,"")& i & estensione
,true)
'fino a qui**************************************************
next
prova cosi'