Brilliant!
codice:
 
Dim nomefile = Mid(fullpath, fullpath.LastIndexOf("\") + 1)
sContentType = System.Web.MimeMapping.GetMimeMapping(nomefile)
Dim bData As Byte()
Dim br As System.IO.BinaryReader = New System.IO.BinaryReader(System.IO.File.OpenRead(fullpath))
bData = br.ReadBytes(br.BaseStream.Length)
SaveDocOutputStreamAttachment(bData, nomefile, sContentType)
fa esattamente quello che gli si chiede!
Grazie!