problemi di upload

[forte78]

vi mostro il codice


<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
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,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>


sto provando a caricare alcuni file che hanno piu o - lo stesso nome


esempio se carico o se su server è presente questo file 184.gif

vado poi a caricare 184 1.gif

cosa succede che quando vado sulla lista dei file ftp il file me lo salva come o184 1.gif

perche come posso caricarlo in maniera corretta


grazie saluti.

[forte78]

avete visto come poter risolvere il problema......

Vi ringrazio

[Mems]

Con fileSystemObject verifichi se il file esiste.

[forte78]

devo aggiungerlo cosi ?



<%Response.Expires=0
fileSystemObject
Response.Buffer = TRUE
Response.Clear
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,"\"))
value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>



fammi sapere grazie dell'aiuto

[forte78]

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'fileSystemObject'

/public/outputfile1.asp, line 3

[beppenet]

il problema è in questa riga:
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14

quella "o" che aggiunge la prende dal nome del file Output....asp

prova a scrivere 13 o 15 e vedi se risolvi...ora nn ricordo bene ma credo di aver avuto anch'io tempo fa questo problema!!!


p.s.
credo che Mems non ti abbia capito esattamente! forse credevva fosse un problema legato a file con lo stesso nome!