upload di Baol per file video ..

[Baol74]

Prova un po' questo..ti restituisce true?

<%
Function WriteLn(s,value)
	Response.Write "" & s & "=" & value & "
"
End Function

Dim oUpload
Set oUpload = new cUpload
oUpload.SetPath "..\..\video_web\"
oUpload.Autorename = True
oUpload.OverWrite = False
oUpload.EnabledImageSize = True
oUpload.Filter = oUpload.FilterVideo() & AND_ & oUpload.FilterSize(2000000)
oUpload.Load()
WriteLn "Multipart="&oUpload.IsMultipart
Response.End
	While Not oUpload.EOF
		oUpload.Save()
		WriteLn "GetFileName()",oUpload.GetFileName()
		WriteLn "GetCompletePathFile()",oUpload.GetCompletePathFile()
		WriteLn "GetHTTPPathFile()",oUpload.GetHTTPPathFile()
		WriteLn "Files(""InputName"")",oUpload.Files("InputName")
		WriteLn "Files(""DestPath"")",oUpload.Files("DestPath")
		WriteLn "Files(""FileExists"")",oUpload.Files("FileExists")
		WriteLn "Files(""Size"")",oUpload.Files("Size")
		WriteLn "Files(""ContentType"")",oUpload.Files("ContentType")
		WriteLn "Files(""ErrorNumber"")",oUpload.Files("ErrorNumber")
		WriteLn "Files(""Error"")",oUpload.Files("Error")
		WriteLn "Files(""Height"")",oUpload.Files("Height")
		WriteLn "Files(""Width"")",oUpload.Files("Width")
		Response.Write "<hr>"
		oUpload.MoveNext
	Wend
Set oUpload=Nothing
%>