超级列表框

ytm易小白

如图：怎么在超级列表框后面增加一个最后修改时间呢

  

子程序名	返回值类型	公开	备 注
_搜索文件_被单击

变量名	类 型	静态	数组	备 注
Folder	文本型
Files	文本型		0
i	整数型
index	整数型
找到文件	逻辑型

Folder ＝ 编辑框1.内容
文件_枚举 (Folder, “*.*”, Files, 真, , 真)  ' 搜索文件
' 目录_枚举子目录 (Folder, Files, 假)  ' 搜索目录
计次循环首 (取数组成员数 (Files), i)
index ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (index, 0, 文件_取文件名 (Files [i], 真))
超级列表框1.置标题 (index, 1, 文件_取扩展名 (Files [i]))
超级列表框1.置标题 (index, 2, 文件_取目录 (Files [i]))
找到文件 ＝ 真
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _搜索文件_被单击<br /> .局部变量 Folder, 文本型<br /> .局部变量 Files, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 找到文件, 逻辑型<br /> <br /> Folder ＝ 编辑框1.内容<br /> 文件_枚举 (Folder, “*.*”, Files, 真, , 真)  ' 搜索文件<br /> ' 目录_枚举子目录 (Folder, Files, 假)  ' 搜索目录<br /> .计次循环首 (取数组成员数 (Files), i)<br />     index ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (index, 0, 文件_取文件名 (Files <i>, 真))<br />     超级列表框1.置标题 (index, 1, 文件_取扩展名 (Files <i>))<br />     超级列表框1.置标题 (index, 2, 文件_取目录 (Files <i>))<br /> <br />     找到文件 ＝ 真<br /> .计次循环尾 ()

LEOONL

  

子程序名	返回值类型	公开	备 注
_搜索文件_被单击

变量名	类 型	静态	数组	备 注
Folder	文本型
Files	文本型		0
q	整数型
index	整数型
找到文件	逻辑型
修改时间	文本型

Folder ＝ 编辑框1.内容
文件_枚举 (Folder, “*.*”, Files, 真, , 真)  ' 搜索文件
' 目录_枚举子目录 (Folder, Files, 假)  ' 搜索目录
计次循环首 (取数组成员数 (Files), q)
index ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (index, 0, 文件_取文件名 (Files [q], 真))
超级列表框1.置标题 (index, 1, 文件_取扩展名 (Files [q]))
超级列表框1.置标题 (index, 2, 文件_取目录 (Files [q]))
文件_取时间 (Files [q], , 修改时间)
超级列表框1.置标题 (index, 3, 修改时间)
找到文件 ＝ 真
计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _搜索文件_被单击<br /> .局部变量 Folder, 文本型<br /> .局部变量 Files, 文本型, , "0"<br /> .局部变量 q, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 找到文件, 逻辑型<br /> .局部变量 修改时间, 文本型<br /> <br /> Folder ＝ 编辑框1.内容<br /> 文件_枚举 (Folder, “*.*”, Files, 真, , 真)  ' 搜索文件<br /> ' 目录_枚举子目录 (Folder, Files, 假)  ' 搜索目录<br /> .计次循环首 (取数组成员数 (Files), q)<br />     index ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (index, 0, 文件_取文件名 (Files [q], 真))<br />     超级列表框1.置标题 (index, 1, 文件_取扩展名 (Files [q]))<br />     超级列表框1.置标题 (index, 2, 文件_取目录 (Files [q]))<br />     文件_取时间 (Files [q], , 修改时间)<br />     超级列表框1.置标题 (index, 3, 修改时间)<br />     找到文件 ＝ 真<br /> .计次循环尾 ()