Upload senza sovrascrivere

martedì 26 febbraio 2013 - 08.23

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

tigre Profilo | Junior Member

198 messaggi | Data Invio: mar 26 feb 2013 - 08:23

utilizzo il seguente script per l'ivio di file...(upload)-
Ho notato se che le volte successive provo a inviare lo stesso file
questo sovrascrive quello esistente.
C'e' la possibilita di evitare la sovrascrizione dei file??
questo è lo script.:::
<%
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
filename2=Right(filepathname,Len(filepathname)-InstrRe
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-21
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("\prova") & strNewFolder &"\" & filename)
'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"uploaded"&filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !