遍历目录问题

fengyewl

  

子程序名	返回值类型	公开	备 注
遍历目录x	文本型
参数名	类 型	参考	可空	数组	备 注
目录	文本型				目录，如“C:\”盘。

变量名	类 型	静态	数组	备 注
文件名	文本型
文件列表	文本型

处理事件 ()
如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
' 调试输出 (目录, “目录”)
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )
判断循环首 (文件名 ≠ “”)
调试输出 (文件名, “文件名文件名文件名文件名文件名”)
文件列表 ＝ 文件列表 ＋ 文件名 ＋ “,” ＋ 到文本 (取文件时间 (文件名)) ＋ “,” ＋ 到文本 (取整 (取文件尺寸 (文件名) ÷ 1024)) ＋ “KB” ＋ “,0|”
文件名 ＝ 寻找文件 (, )  ' 继续搜寻文件
判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录 )
判断循环首 (文件名 ≠ “”)
如果真 (取文本左边 (文件名, 1) ≠ “.”)
文件列表 ＝ 文件列表 ＋ 文件名 ＋ “,” ＋ 到文本 (取文件时间 (文件名)) ＋ “,” ＋ 到文本 (取整 (取文件尺寸 (文件名) ÷ 1024)) ＋ “KB” ＋ “,1|”
文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (文件列表)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 遍历目录x, 文本型, 公开<br /> .参数 目录, 文本型, , 目录，如“C:\”盘。<br /> .局部变量 文件名, 文本型<br /> .局部变量 文件列表, 文本型<br /> <br /> 处理事件 ()<br /> .如果真 (取文本右边 (目录, 1) ≠ “\”)<br />     目录 ＝ 目录 ＋ “\”<br /> .如果真结束<br /> ' 调试输出 (目录, “目录”)<br /> 文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )<br /> .判断循环首 (文件名 ≠ “”)<br />     调试输出 (文件名, “文件名文件名文件名文件名文件名”)<br />     文件列表 ＝ 文件列表 ＋ 文件名 ＋ “,” ＋ 到文本 (取文件时间 (文件名)) ＋ “,” ＋ 到文本 (取整 (取文件尺寸 (文件名) ÷ 1024)) ＋ “KB” ＋ “,0|”<br />     文件名 ＝ 寻找文件 (, )  ' 继续搜寻文件<br /> .判断循环尾 ()<br /> 文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (取文本左边 (文件名, 1) ≠ “.”)<br />         文件列表 ＝ 文件列表 ＋ 文件名 ＋ “,” ＋ 到文本 (取文件时间 (文件名)) ＋ “,” ＋ 到文本 (取整 (取文件尺寸 (文件名) ÷ 1024)) ＋ “KB” ＋ “,1|”<br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 返回 (文件列表)

.版本 2
.支持库 spec

.局部变量 临时目录, 文本型
.局部变量 文件信息, 文本型, , "0"

临时目录 ＝ 遍历目录x (取运行目录 () ＋ “\123\”)
文件信息 ＝ 分割文本 (临时目录, “,”, )
调试输出 (文件信息)

调试输出是这样的
* 数组:10{“xd.exe”,“100年1月1日”,“-1KB”,“0|硬盘当前温度 (1).exe”,“100年1月1日”,“-1KB”,“0|新建文件夹”,“100年1月1日”,“-1KB”,“1|”}
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
.版本 2
.支持库 spec

.局部变量 临时目录, 文本型
.局部变量 文件信息, 文本型, , "0"


临时目录 ＝ 遍历目录x (取运行目录 () ＋ “\”)
文件信息 ＝ 分割文本 (临时目录, “,”, )
调试输出 (文件信息)

* “FileTransfer-PackClient.e,2016年12月2日18时32分44秒,371KB,0|FileTransfer-PackServer.e,2017年6月27日17时57分9秒,244KB,0|zh.ldb,2017年6月27日17时58分54秒,0KB,0|zh.mdb,2017年6月27日17时48分23秒,148KB,0|取文件大小.e,2017年6月27日18时32分40秒,5KB,0|123,2017年6月27日18时29分9秒,0KB,1|下载目录,2017年6月27日18时2分,0KB,1|” | “文件列表”

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------不加123用户目录 就能取到 文件创建时间和  文件大小   




加了123用户目录 就取不到了 100年1月1日”,“-1KB


RT```

嗨嗨嗨

文件列表 ＝ 文件列表 ＋ 文件名 ＋ “,” ＋ 到文本 (取文件时间 (目录+文件名)) ＋ “,” ＋ 到文本 (取整 (取文件尺寸 (目录+文件名) ÷ 1024)) ＋ “KB” ＋ “,0|”


都换过来就好，如果没写具体目录默认是运行目录