老师，这个报错是哪里出问题了？
此主题相关图片如下：微信截图_20190617110503.png
If dlg.ShowDialog = DialogResult.OK Then
Dim fpath As String = "\project\Attachments\基地图片\"
Tables("基地信息").current("基地1") = "基地图片\" & Tables("基地信息").current("基地名称") & "基地图片1.jpg"
If ftp1.DirExists(fpath) = False Then ftp1.MakeDir(fpath)
For Each fl As String In dlg.FileNames
Dim fileInfo As new FileInfo(fl)
Dim file As String = fl
Dim img As image = getImage(file)
Dim bmp As bitmap
bmp = new bitmap(img, 320,230)
bmp.save(ProjectPath & "\Attachments\基地图片\" & Tables("基地信息").current("基地名称") & "基地图片1.jpg", ImageFormat.Jpeg)
bmp.Dispose
fl = ProjectPath & "\Attachments\基地图片\" & Tables("基地信息").current("基地名称") & "基地图片1.jpg"
If Ftp1.Upload(fl,fpath & filesys.GetName(fl),True) = True Then
End If
Next
End If
加好友 
发短信
Post By：2019/6/17 11:06:00 [显示全部帖子]
