renombrar archivos

[Adler]

Hola

En negrita los cambios que has de hacer

Public Sub Save(path)
Dim streamFile, fileItem, i, particion

if Right(path, 1) <> "\" then path = path & "\"

if not uploadedYet then Upload
i = 1
For Each fileItem In UploadedFiles.Items
particion = Split(fileItem.FileName, ".")

Set streamFile = Server.CreateObject("ADODB.Stream")
streamFile.Type = 1
streamFile.Open
StreamRequest.Position=fileItem.Start
StreamRequest.CopyTo streamFile, fileItem.Length
streamFile.SaveToFile path & particion(0) & "-" & i & "." & particion(1), 2
streamFile.close
Set streamFile = Nothing
fileItem.Path = path & particion(0) & "-" & i & "." & particion(1)
i = i +1
Next
End Sub

Suerte