- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- ftp上传报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136601)
-- 发布时间：2019/6/17 11:06:00
-- ftp上传报错
老师，这个报错是哪里出问题了？
此主题相关图片如下：微信截图_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
-- 发布时间：2019/6/17 11:56:00
--
1、弹出msgbox(fl) msgbox(fpath & filesys.GetName(fl)) 看值是否正确；
2、单独测试，看是否报错 Ftp1.Upload("d:\\test.jpg", "/abc.jpg",True)