专家坐堂-ftp问题，请教Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp问题，请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138328)

--  作者：jq_shang
--  发布时间：2019/7/29 3:28:00
--  ftp问题，请教
表中单元格为多文件型，采用远程文件管理器管理，文件管理器隐藏所有命令标签。请问：
如何用代码一次性删除该单元格中的所有文件，并同步删除ftp目录中的相应文件呢？

--  作者：jq_shang
--  发布时间：2019/7/29 3:48:00
--

为了获取单元格中的所有文件名，看我绕了多大的圈子啊……惭愧！
Dim ftp1 As New FtpClient
ftp1.Host="47.91.11.151"
ftp1.Account = "ftpuser"
ftp1.Password = "ftp@163"
ftp1.RootDir = _xmml & "/附件区"
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager2")
fm.FTPclient = ftp1

Dim r As Row = Tables("文档表").Current
Dim s As String = r("附件")
s = s.Replace(chr(13),"*")
s = s.Replace(chr(10),"")
Dim val() As String = s.Split("*")
Dim vs As new List(of String)
vs.AddRange(val)
For Each v As String In vs
Dim fl As String = FileSys.GetName(v)
\' output.show(fl)
Dim file As String = _xmml & "\\附件区\\" & fl
If ftp1.FileExists(file) Then \'如果存在则删除
If ftp1.DeleteFile(file) = True Then \'这里要带路径的
Messagebox.show("ftp文档" & fl & "删除成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
fm.DeleteFile(fl) \'这里是不带路径的
Else
Messagebox.show("ftp文档" & fl & "删除失败,请管理员手动删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
messagebox.Show("ftp文档" & fl & "不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next

[此贴子已经被作者于2019/7/29 4:17:50编辑过]

--  作者：有点蓝
--  发布时间：2019/7/29 9:50:00
--

Dim r As Row = Tables("文档表").Current
If r IsNot Nothing Then
Dim ftp1 As New FtpClient
ftp1.Host="47.91.11.151"
ftp1.Account = "ftpuser"
ftp1.Password = "ftp@163"

For Each fl As String In r.DataRow.Lines("附件")
Dim file As String = _xmml & "\\附件区\\" & fl
If ftp1.FileExists(file) Then \'如果存在则删除
If ftp1.DeleteFile(file) = True Then \'这里要带路径的
Messagebox.show("ftp文档" & fl & "删除成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("ftp文档" & fl & "删除失败,请管理员手动删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
messagebox.Show("ftp文档" & fl & "不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
r.Delete
End If

--  作者：jq_shang
--  发布时间：2019/7/29 14:36:00
--
哦哦，感谢蓝版！