遍历FTP里面的所有文件夹和文件

moli15522

如题：遍历出FTP里面的所有文件夹和文件

需要列出FTP服务器里面的所有的文件夹和所以的文件



前面三个文件夹 里面子文件夹 子文件夹里面还有文件夹 子文件夹个数不能确定


这个是我用易语言写的  不能取子目录 求解决

要求：列出所有文件夹和文件
demo.e (637.61 KB, 下载次数: 32)

2019-2-8 20:51 上传

点击文件名下载附件

npzs

moli15522 发表于 2019-2-9 14:13
不要手动遍历 ，你这个是手动的

我没明白，你所谓的手动是啥意思？
难道你点开电脑的资源管理器，比如C盘，除了显示当前的目录和文件之外，你还能显示下级的文件吗？
你这逻辑不合理啊，一旦文件多了岂不是很混乱。。。

好吧，既然你有这样的需求，也满足你： temp33 (1).e (4.53 KB, 下载次数: 33)

2019-2-9 15:01 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

如果真 (连接FTP服务器 (, , , , ) ＝ 假)  ' 这个根据实际情况你自己填写
信息框 (“错误”, 0, , )
返回 ()
显示列表 ()

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

断开FTP服务器 ()

子程序名	返回值类型	公开	备 注
显示列表

变量名	类 型	静态	数组	备 注
c
i
j
path	文本型
name	文本型		0
attr			0
size			0
date	日期时间型		0

如果 (超级列表框1.标记 ＝ “”)
path ＝ “/”
path ＝ 超级列表框1.标记 ＋ “/”
c ＝ FTP目录列表 (path ＋ “*”, , name, attr, size, date)
计次循环首 (c, i)
如果 (位与 (attr [i], #子目录 ) ＝ #子目录 )
' 目录，可以加入目录图标
超级列表框1.标记 ＝ path ＋ name [i]
显示列表 ()
超级列表框1.标记 ＝ 子文本替换 (超级列表框1.标记, “/” ＋ name [i], , , , 假)

' 文件图标，可以更详细的区分系统文件、隐藏文件等等
j ＝ 超级列表框1.插入表项 (, name [i], , , , 0)
超级列表框1.置标题 (j, 1, 到文本 (size [i]))  ' 这有个小问题是大于 2G 的文件这里尺寸肯定是获取不了的
超级列表框1.置标题 (j, 2, 时间到文本 (date [i], ))
超级列表框1.置标题 (j, 3, path)

计次循环尾 ()

i支持库列表	支持库注释
internet	互联网支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 internet<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .如果真 (连接FTP服务器 (, , , , ) ＝ 假)  ' 这个根据实际情况你自己填写<br />     信息框 (“错误”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 显示列表 ()<br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 断开FTP服务器 ()<br /> <br /> .子程序 显示列表<br /> .局部变量 c<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 path, 文本型<br /> .局部变量 name, 文本型, , "0"<br /> .局部变量 attr, , , "0"<br /> .局部变量 size, , , "0"<br /> .局部变量 date, 日期时间型, , "0"<br /> <br /> .如果 (超级列表框1.标记 ＝ “”)<br />     path ＝ “/”<br /> .否则<br />     path ＝ 超级列表框1.标记 ＋ “/”<br /> .如果结束<br /> c ＝ FTP目录列表 (path ＋ “*”, , name, attr, size, date)<br /> .计次循环首 (c, i)<br />     .如果 (位与 (attr <i>, #子目录) ＝ #子目录)<br />         ' 目录，可以加入目录图标<br />         超级列表框1.标记 ＝ path ＋ name <i><br />         显示列表 ()<br />         超级列表框1.标记 ＝ 子文本替换 (超级列表框1.标记, “/” ＋ name <i>, , , , 假)<br /> <br />     .否则<br />         ' 文件图标，可以更详细的区分系统文件、隐藏文件等等<br />         j ＝ 超级列表框1.插入表项 (, name <i>, , , , 0)<br />         超级列表框1.置标题 (j, 1, 到文本 (size <i>))  ' 这有个小问题是大于 2G 的文件这里尺寸肯定是获取不了的<br />         超级列表框1.置标题 (j, 2, 时间到文本 (date <i>, ))<br />         超级列表框1.置标题 (j, 3, path)<br />     .如果结束<br /> <br /> .计次循环尾 ()

ttioo7

你这是用模块写的，请上传模块远吗

补充内容 (2019-2-8 21:21):
请上传模块源码

moli15522

ttioo7 发表于 2019-2-8 21:21
你这是用模块写的，请上传模块远吗

补充内容 (2019-2-8 21:21):

直接调用精易模块

ttioo7

moli15522 发表于 2019-2-8 21:27
直接调用精易模块

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 _超级列表框1_被双击, 逻辑型
   
5. .参数 横向位置, 整数型
   
6. .参数 纵向位置, 整数型
   
7. .参数 功能键状态, 整数型
   
8. 
   
9. 线程_启动多参_文本型 (&列出目录和文件, 1552294270, _启动窗口.超级列表框1.取标题 (超级列表框1.现行选中项, 0))
   

复制代码

这个意思？

补充内容 (2019-2-8 21:55):
还是你想把所有FTP全部遍历到一起

moli15522

ttioo7 发表于 2019-2-8 21:55
这个意思？

补充内容 (2019-2-8 21:55):

我要他自动遍历 而非手动

ttioo7

moli15522 发表于 2019-2-8 22:05
我要他自动遍历 而非手动

你想把所有FTP全部遍历到一起？

moli15522

ttioo7 发表于 2019-2-8 22:18
你想把所有FTP全部遍历到一起？

对的 就是这样

npzs

用官方支持库写一个简单的：
temp33.e (103.65 KB, 下载次数: 27)

2019-2-9 11:54 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

如果真 (连接FTP服务器 (, , , , ) ＝ 假)  ' 这个根据实际情况你自己填写
信息框 (“错误”, 0, , )
返回 ()
显示列表 ()

子程序名	返回值类型	公开	备 注
_窗口1_将被销毁

断开FTP服务器 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

如果真 (超级列表框1.现行选中项 ＝ -1)
返回 ()
如果 (超级列表框1.取表项数值 (超级列表框1.现行选中项) ＝ 1)  ' 目录，展开下级目录
超级列表框1.标记 ＝ 超级列表框1.标记 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)  ' 本演示并未写回退代码，如果写了，需要处理备份的路径
显示列表 (超级列表框1.标记)

' 文件，可以下载文件：
FTP文件下载 (超级列表框1.标记 ＋ “/” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0), , )

子程序名	返回值类型	公开	备 注
显示列表
参数名	类 型	参考	可空	数组	备 注
目录

变量名	类 型	静态	数组	备 注
c
i
j
name	文本型		0
attr			0
size			0
date	日期时间型		0

超级列表框1.全部删除 ()
c ＝ FTP目录列表 (目录 ＋ “/*”, , name, attr, size, date)
计次循环首 (c, i)
如果 (位与 (attr [i], #子目录 ) ＝ #子目录 )
' 目录，可以加入目录图标
j ＝ 超级列表框1.插入表项 (, name [i], , , , 1)  ' 用数值 1 表示目录
' 文件图标，可以更详细的区分系统文件、隐藏文件等等
j ＝ 超级列表框1.插入表项 (, name [i], , , , 0)  ' 用数值 0 表示文件
超级列表框1.置标题 (j, 1, 到文本 (size [i]))  ' 这有个小问题是大于 2G 的文件这里尺寸肯定是获取不了的
超级列表框1.置标题 (j, 2, 时间到文本 (date [i], ))
计次循环尾 ()

i支持库列表	支持库注释
internet	互联网支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 internet<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口1<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> .如果真 (连接FTP服务器 (, , , , ) ＝ 假)  ' 这个根据实际情况你自己填写<br />     信息框 (“错误”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 显示列表 ()<br /> <br /> <br /> .子程序 _窗口1_将被销毁<br /> <br /> 断开FTP服务器 ()<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     返回 ()<br /> .如果真结束<br /> .如果 (超级列表框1.取表项数值 (超级列表框1.现行选中项) ＝ 1)  ' 目录，展开下级目录<br />     超级列表框1.标记 ＝ 超级列表框1.标记 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)  ' 本演示并未写回退代码，如果写了，需要处理备份的路径<br />     显示列表 (超级列表框1.标记)<br /> <br /> .否则<br />     ' 文件，可以下载文件：<br />     FTP文件下载 (超级列表框1.标记 ＋ “/” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0), , )<br /> .如果结束<br /> <br /> <br /> .子程序 显示列表<br /> .参数 目录, , 可空<br /> .局部变量 c<br /> .局部变量 i<br /> .局部变量 j<br /> .局部变量 name, 文本型, , "0"<br /> .局部变量 attr, , , "0"<br /> .局部变量 size, , , "0"<br /> .局部变量 date, 日期时间型, , "0"<br /> <br /> 超级列表框1.全部删除 ()<br /> c ＝ FTP目录列表 (目录 ＋ “/*”, , name, attr, size, date)<br /> .计次循环首 (c, i)<br />     .如果 (位与 (attr <i>, #子目录) ＝ #子目录)<br />         ' 目录，可以加入目录图标<br />         j ＝ 超级列表框1.插入表项 (, name <i>, , , , 1)  ' 用数值 1 表示目录<br />     .否则<br />         ' 文件图标，可以更详细的区分系统文件、隐藏文件等等<br />         j ＝ 超级列表框1.插入表项 (, name <i>, , , , 0)  ' 用数值 0 表示文件<br />     .如果结束<br />     超级列表框1.置标题 (j, 1, 到文本 (size <i>))  ' 这有个小问题是大于 2G 的文件这里尺寸肯定是获取不了的<br />     超级列表框1.置标题 (j, 2, 时间到文本 (date <i>, ))<br /> .计次循环尾 ()

moli15522

shier2817 发表于 2019-2-9 11:54
用官方支持库写一个简单的：

不要手动遍历 ，你这个是手动的