[求助]想达到上传图片的同时产生缩略图， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想达到上传图片到e:\web\images\uploadfiles的同时产生缩略图e:\web\images\缩略图，

缩略图产生的代码不知道怎么加，麻烦老师帮我诊断一下

For Each key As String In e.Files.Keys

If key = "up3" Then

Dim lst As List(of String) = dra.Lines("照片")

For Each fln As String In e.Files(key)

Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln

e.SaveFile(key, fln, "e:\web\images\uploadfiles\" & n)

lst.Add(n)

dra.Lines("照片") = lst

End If

Dim file As String = fln

Dim img As image = getImage(file)

Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))

bmp.save("e:\web\images\缩略图\n")

bmp.Dispose

主题：[求助]想达到上传图片的同时产生缩略图，