以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]可不可以将远程文件管理器中的文件自动生成表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193394)
--  作者：xuxingbo
--  发布时间：2024/9/10 10:11:00
--  [求助]可不可以将远程文件管理器中的文件自动生成表格
如何将存在服务器上的文件夹内的文件名自动生成一个统计表
--  作者：有点蓝
--  发布时间：2024/9/10 10:15:00
--  
举例说明一下，要什么效果？
--  作者：xuxingbo
--  发布时间：2024/9/10 16:10:00
--  
按下一个按钮系统自动把，服务器上设置的根目录文件夹里的文件名称转成列表，三层文件夹
--  作者：有点蓝
--  发布时间：2024/9/10 16:52:00
--  
如果是共享目录，参考：http://www.foxtable.com/webhelp/topics/0331.htm
--  作者：xuxingbo
--  发布时间：2024/9/11 9:29:00
--  
我是想要创建一个表格，三级目录每一级作为一列，
    Dim ftp1 As New FtpClient
    Dim dls As List(of String)
    ftp1.Host = "10.105.41.24"
    ftp1.Account = "foxftp"
    ftp1.Password = "YUNXINGZU-a2"
   ftp1.Port = "5217"
    ftp1.RootDir = "\\1 仪表组文件/96 变更存档"
后边要怎么做
--  作者：有点蓝
--  发布时间：2024/9/11 9:56:00
--  
Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
fls = ftp1.GetFileList("\\photo")
dim t as table = tables("表A")
dim r as row
For Each fl As String In fls
r = t.addnew
    r("第一列") = fl
Next
Dim dls As List(of String)
dls = ftp1.GetDirList("\\photo")
For Each dl As String In dls
fls = ftp1.GetFileList(dl )
For Each fl As String In fls 
r = t.addnew
    r("第一列") = dl 
    r("第二列") = fl 
Next
Next
--  作者：xuxingbo
--  发布时间：2024/9/12 9:38:00
--  
这个直接自动生成个XLS表格要怎么做，统计三级文件夹
--  作者：有点蓝
--  发布时间：2024/9/12 9:42:00
--  
把execl报表这章内容全部过一遍：http://www.foxtable.com/webhelp/topics/0195.htm