UPLOAD FILE < 1 KB

venerdì 03 agosto 2007 - 08.36

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

delama77 Profilo | Junior Member

185 messaggi | Data Invio: ven 3 ago 2007 - 08:36

Non riesco ad uplodare file minori di un KB
If Request.Files.Get(0).FileName <> "" Then
Dim strPath As String
Dim MyPos As Integer
Dim posExt As Integer
Dim Ext As String
strPath = Request.Files.Get(0).FileName
posExt = InStr(strPath, ".")
MyPos = InStrRev(strPath, "\", posExt)
strFile = Mid(strPath, MyPos + 1)
Ext = Mid(strPath, posExt, 4)
If Ext.ToLower <> ".exe" And Ext.ToLower <> ".scr" And Ext.ToLower <> ".bat" And Ext.ToLower <> ".com" Then
'//il file ha una estensione valida per essere salvato sul server
FileOK = True
Else
'//crea un messaggio d'errore
FileOK = False
RegisterClientScriptBlock("Error", MSGError("Il file " & strFile & " non è un file valido!\nControllare se l'estensione del file è conforme alle policy del server e riprovare\nSe il problema persiste contattare il WebMaster notificando l'errore!\n"))
End If
'esiste un file di cui fare l'upload sul server ma bisogna prima controllare
'l'estensione del file da salvare
Dim FileSize As Long
Dim MyPostedFile As HttpPostedFile = Request.Files.Get(0)
Dim MyFileName As String = MyPostedFile.FileName
Dim dbFileName As String
Dim MyNewDir As String
Dim UploadPath As String
Dim Descrizione As String
Dim dbfileNameUploader As String
Dim dbfileNameUploaderZip As String

Descrizione = Replace(Me.txtDescrizione.Text, "'", "''")

FileSize = MyPostedFile.ContentLength
FileDimension = FileSize / 1024
If FileDimension = 0 Then
FileDimension = 1
End If

If Not ((MyPostedFile Is Nothing)) Then
If FileOK = True Then
Dim FileID As Integer
Dim Dati(FileSize) As Byte
File1.PostedFile.InputStream.Read(Dati, 0, FileSize)
MyFileName = File1.PostedFile.FileName.ToString

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 !