Rinomina file automatico

[fabiodm75]

Dato un semplice upload ho l'esigenza di rinominare i file uploadati, dove devo intervenire? :master:

        ' CICLO I FILE UPLOADATI
        FilesName = "" : x = 0
        For Each File In Uploader.Files.Items
            If InStr(File.FileName, ".") > 0 Then
                If InStr(Testo_Upload_EstensioniNonAbilitate, Mid(File.FileName, InStrRev(File.FileName, "."), Len(File.FileName) - InStrRev(File.FileName, ".") + 1)) <= 0 Then
                    ' SALVO IL FILE UPLOADATO
                    File.SaveToDisk Server.MapPath("/public/cartella/" & Session("sottocartella"))
                    FilesName = FilesName & ", " & File.FileName

                    'Response.Write(FilesName)
                    'Response.End()
                    x = x + 1
                Else
                    Response.Redirect "upload.asp?errore=si"
                End If
            End If
        Next 

penso sulla variabile FilesName (prima di salvare il file giusto?) però niente non mi riesce...

sò cotto