Funzione rinomina file

[orcim]

Ciao a tutti, ho trovato questa funzione con la ricerca:

Set gFS = CreateObject("Scripting.FileSystemObject")
  
         if gFS.FileExists("c:\inetpub\upload\" & SaveFiles & "") then
        Do
			Counter = Counter + 1
			NewFileName = SaveFiles
			NewFileName = Counter & "-" & NewFileName  
            response.write NewFileName &" - Nome file nuovo 
"
            response.write "
------

"
   
   
            Loop while gFS.FileExists("c:\inetpub\upload\"& NewFileName &"")
            gFS.MoveFile "c:\inetpub\upload\"&SaveFiles&"", "c:\inetpub\upload\"&NewFileName&""
  set gFS = nothing
  end if

Secondo l'autore dovrebbe rinominare progressivamente un file inviato in upload al server se il file è già esistente, ma a me non funziona, esempio:

- carico il file chiamato dicembre2005
- viene rinominato come 1-dicembre2005
- ricarico il file chiamato 1-dicembre2005 (quindi esiste)
- viene rinominato come 1-1-dicembre2005 e non 2-dicembre2005 e poi cancella quello già esistente... come mai???

[Sypher]

allora per il contatore dovresti prima tirare fuori dal nome il numerello,incrementarlo e riaccodare il tutto...non so se mi sono spiegato però è abbastanza semplice...

per quanto riguarda il file...non viene cancellato ma semplicemente spostato e rinominato...come un taglia, incolla rinomina...se nn vuoi tagliarlo allora usa copyfile al posto di movefile

[orcim]

Originariamente inviato da Sypher
allora per il contatore dovresti prima tirare fuori dal nome il numerello,incrementarlo e riaccodare il tutto...non so se mi sono spiegato però è abbastanza semplice...

grazie, scusa ma non ho capito questa parte...

[Sypher]

Originariamente inviato da orcim
grazie, scusa ma non ho capito questa parte...

ti spiego qiello che succede
arriva il file che si chiama "dicembre"

'se già esiste
Counter = Counter + 1
NewFileName = "dicembre"
NewFileName = "1" & "-" & "dicembre" 'Counter trattino e nome file

arriva il file che si chiama "1-dicembre"

'se già esiste
Counter = Counter + 1
NewFileName = "dicembre"
NewFileName = "1" & "-" & "1-dicembre" 'Counter trattino e nome file

sta a te trovare una soluzione...non me ne viene in mente una affidabile...d'altra parte se il file si chiama così "1-dicembre" io gli devo mettere un contatore perchè già esiste...quindi "1-1-dicembre" non è nemmeno tanto sbagliato...

[orcim]

Si grazie, ma non capisco perchè counter non si incrementa... :master:

[Sypher]

Originariamente inviato da orcim
Si grazie, ma non capisco perchè counter non si incrementa... :master:

leggi sopra ho modificato...

[Dirk Pitt]

Potresti prima leggere il nome del file, estrarre il primo carattere (che mi pare di capire che è sempre un numero), settare la variabile Counter con quel numero e poi incrementare la variabile di 1.
Alla fine chiami il file Counter + parte del file restante (quindi il nome senza il numero davanti).

[orcim]

Non so cosa è successo... ho solo modificato questa riga:

gFS.MoveFile "c:\inetpub\upload\"&SaveFiles&"", "c:\inetpub\upload\"&NewFileName&""

con questa:

gFS.CopyFile "c:\inetpub\upload\"&SaveFiles&"", "c:\inetpub\upload\"&NewFileName&""

e adesso funziona.... bo!

[Sypher]

Originariamente inviato da orcim
Non so cosa è successo... ho solo modificato questa riga:

gFS.MoveFile "c:\inetpub\upload\"&SaveFiles&"", "c:\inetpub\upload\"&NewFileName&""

con questa:

gFS.CopyFile "c:\inetpub\upload\"&SaveFiles&"", "c:\inetpub\upload\"&NewFileName&""

e adesso funziona.... bo!

vabbè mejo no?

[orcim]

Originariamente inviato da Sypher
vabbè mejo no?

Direi di si... ma che fa la lazio stasera???