ophalen posted-file

function new_item()
if request.form("submit") <> "" then
' verwerking
else
' formulier zoals: <form runat="server" enctype="multipart/form-data"><input type="file" name="document" /><input type="submit" name="submit" value="submit" /></form>
end if
end function

Dim uploadedFile As new FileUpload
uploadedFile = Page.FindControl("document")
If Not (uploadedFile.PostedFile Is Nothing) Then
Dim postedFile = uploadedFile.PostedFile
Dim filename As String = postedFile.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
Dim imageBytes(contentLength) As Byte
PostedFile.InputStream.Read(imageBytes, 0, contentLength)