e.Cancel = True
Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif;*.png" '设置筛选器
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim lb As WinForm.Label = e.Form.Controls("Label_代码")
Dim dr As DataRow
dr = DataTables("公司名录维护新增模式窗口_Table1").SQLFind("代码 = '" & lb.Text & "'")
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
pv.FTPclient = _ftp公司名录附件
'pv.AddCommand.Visible = False
'pv.DeleteCommand.Visible = False
'pv.ClearCommand.Visible = False
pv.ManagerCommand.Visible = False
pv.UpdateCommand.Visible = False
pv.ConnectCommand.Visible = False
If dr IsNot Nothing Then '如果找到的话
Dim ls = dr.Lines("附件")
For Each f As String In dlg.FileNames
Dim file = "/公司名录附件/" & dr("公司") & "/" & filesys.GetName(f)
If _ftp公司名录附件.DirExists("/公司名录附件/" & dr("公司")) = False Then
_ftp公司名录附件.MakeDir("/公司名录附件/" & dr("公司")) '此处不可删除"/公司名录附件/",要不然会直接在RemoteFiles目录下生成公司名目录
'Dim file = dr("公司") & "/" & filesys.GetName(f)
'If _ftp公司名录附件.DirExists(dr("公司")) = False Then
' _ftp公司名录附件.MakeDir(dr("公司"))
End If
Dim Result As DialogResult
If _ftp公司名录附件.FileExists(file) Then
Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = Nothing OrElse result = DialogResult.Yes Then
If _ftp公司名录附件.Upload(f,file,True) = True Then
If ls.contains(file) = False Then
ls.add(file)
pv.AddFile(file)
End If
Else
MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
End If
End If
Next
dr.lines("附件") = ls
e.DataRow.lines("附件") = ls
e.DataTable.AcceptChanges
dr.Save
_ftp公司名录附件.Close
Else
MessageBox.Show("增加附件失败,请与管理员联系","意外错误!",MessageBoxButtons.OK,MessageBoxIcon.Error)
End If
End If
删除：
If e.DataCol.name = "附件" Then
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除文件【" & e.FileName & "】?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
'e.DataCol.FTPClient.DeleteFile(e.FileName) '如果是用表格上的窗口管理器,则用此行代码,下面的不需要,因为设置扩展属性时设定了FTP的相关信息
Dim lb As WinForm.Label = e.Form.Controls("Label_代码")
Dim dr As DataRow
dr = DataTables("公司名录维护新增模式窗口_Table1").SQLFind("代码 = '" & lb.Text & "'")
If dr IsNot Nothing Then '如果找到的话
_ftp公司名录附件.DeleteFile(e.FileName)
FileSys.DeleteFile(ProjectPath & "RemoteFiles\" & e.FileName.Replace("/","\")) '同步删除本机上的文件
Dim fls As List(of String)
fls = _ftp公司名录附件.GetFileList(dr("公司")) '返回此FTP目录下的文件数
If fls.Count = 0 Then
_ftp公司名录附件.DeleteDir(dr("公司"),True) '直接删除此目录及下面的所有文件
FileSys.DeleteDirectory(ProjectPath & "RemoteFiles" & _ftp公司名录附件.RootDir.Replace("/","\") & dr("公司"),2,2) '删除本机的目录
End If
dr.Save
_ftp公司名录附件.Close
End If
Else
e.Cancel = True
End If
End If
FTP的代码如下：
_ftp公司名录附件.host=""
_ftp公司名录附件.port = ""
_ftp公司名录附件.Account = ""
_ftp公司名录附件.password = ""
_ftp公司名录附件.RootDir = "/公司名录附件" '设置根目录
加好友 
发短信
Post By：2020/4/8 12:33:00 [只看该作者]
