Ritoccare l'overwrite in upload [script di Baol74]

[szannotti]

Stò utilizzando lo script di BAOL74 per l'upload di immagini; ho notato che se 'overwrite' è impostato su 'true' allora giustamente i file vengono sovrascritti, ma i vekki vengono rinominati xxx_0, xxx_1, ecc.
E' possibile fare in modo che i file vekki vengano eliminati dopo essere stati sovrascritti?

in upload.asp il pezzo "incriminato" dovrebbe essere questo (credo):



Private function Rename (Name,ext,count)
Dim Dest,tmpExt
If fso.fileExists(GetCompletePathFile()) then
Count = -1:tmpExt =""
if Ext<>"" then tmpExt = "." & Ext
do
Count = Count + 1
Dest = Files("DestPath") & Files("Name") & "_" & cStr(Count) & tmpExt
loop while fso.fileExists(Dest)
If Not Files("OverWrite") then
Files("Name") = Name & "_" & Count
Files("ext") = Ext
Files.update
Rename = Dest
else
Fso.MoveFile GetCompletePathFile(),Dest
Rename = GetCompletePathFile()
End if
else
rename = GetCompletePathFile()
end if
end function

[fraude]

Per eliminarli dal server devi utilizzare l'oggetto FSO:

http://www.sloppycode.net/Reference/FSO/