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

[viki1967]

Un esempio da personalizzare alle tue necessità:

strOld = "/public/" & sezione & "/immagine.jpg"
strNew = "/public/" & sezione & "/immagine_new.jpg"

Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile strOld, strNew
Set fs = nothing

[fabiodm75]

Originariamente inviato da viki1967
Un esempio da personalizzare alle tue necessità:

strOld = "/public/" & sezione & "/immagine.jpg"
strNew = "/public/" & sezione & "/immagine_new.jpg"

Set fs = Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile strOld, strNew
Set fs = nothing

a me serve, se possibile modificare il codice che ho postato perchè altrimenti va a finire che "impallo" o in alternativa il codice che hai posto dove metteresti nel mio codice? :master:

[viki1967]

Devi semplicemente con FSO verificare che il file esista nella cartella upload ed in caso positivo provvedi sempre con FSO a rinominare il file appena caricato.

[fabiodm75]

non ho capito... io faccio l'upload nella cartella creata dinamicamente quindi vuota non c'è nessun file ad es. carico le immagini pippo.jpg e pluto.jpg e voglio che vengano rinominate 01.jpg e 02.jpg quello che tu dici vale se nella cartelal ci sono già immagini con nome uguale... giusto? :master:

A me serve di rinominarle a prescindere se ci sono immagini uguali o meno, inoltre il tuo codice dove lo dovrei "piazzare"?

[fabiodm75]

ho provato così ma dà errore "impossibile trovare file"

        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

        SET FSO = Server.CreateObject("Scripting.FileSystemObject")
        If FSO.FolderExists(Server.MapPath("/public/cartella/" & Session("sottocartella"))) Then
            strOld = FilesName
            strNew ="0" & x 
            Set fs = Server.CreateObject("Scripting.FileSystemObject")
            fs.MoveFile strOld, strNew
            Set fs = nothing
        End if
                    x = x + 1
                Else
                    Response.Redirect "upload.asp?errore=si"
                End If
            End If
        Next 

forse è sbagliato il punto dove ho messo il codice per rinominare il file? :master: