|
10精币
本帖最后由 yousihuaa 于 2010-7-9 10:19 编辑
点开始查找, 寻找文件到文件路径后一并运行,怎么写呢!
点开始查找, 寻找文件到文件路径后一并运行,怎么写呢!
点开始查找, 寻找文件到文件路径后一并运行,怎么写呢!
点开始查找, 寻找文件到文件路径后一并运行,怎么写呢!
[e].版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 找到, 逻辑型
.子程序 __启动窗口_创建完毕
.子程序 列表, , , ***寻找目录下的所有子目录**
.参数 路径, 文本型
.参数 查找的文件, 文本型, , 如果模糊查找输入关键词即可
.局部变量 子目录, 文本型
.局部变量 文件名, 文本型
子目录 = 寻找文件 (路径 + “*.*”, #子目录)
.判断循环首 (子目录 ≠ “” 且 找到 = 假)
.如果真 (取文本左边 (子目录, 1) ≠ “.”)
.如果真 (文件是否存在 (路径 + 子目录 + “\” + 查找的文件))
编辑框2.加入文本 (路径 + 子目录 + “\” + 查找的文件)
找到 = 真 ' 本来用跳出循环(),nnd居然跳不出循环才用这招
到循环尾 ()
.如果真结束
列表 (路径 + 子目录 + “\”, 编辑框1.内容)
状态条1.置文本 (0, 路径 + 子目录)
.如果真结束
子目录 = 寻找文件 (, #子目录)
.判断循环尾 ()
.如果真 (找到)
状态条1.置文本 (0, “文件已找到!”)
返回 ()
.如果真结束
状态条1.置文本 (0, “没有找到文件!”)
.子程序 _按钮1_被单击
.局部变量 目录, 文本型
.局部变量 所有盘符, 字节集
.局部变量 盘符, 字节集, , "0"
.局部变量 返回值, 整数型
.局部变量 索引, 整数型
编辑框2.内容 = “”
.如果真 (编辑框1.内容 = “”)
信息框 (“请输入要查找的文件名(要包括后缀名)”, #错误图标, )
返回 ()
.如果真结束
置等待鼠标 ()
所有盘符 = 取空白字节集 (256)
返回值 = GetLogicalDriveStrings (256, 所有盘符)
所有盘符 = 取字节集左边 (所有盘符, 返回值)
盘符 = 分割字节集 (所有盘符, { 0 }, )
.计次循环首 (取数组成员数 (盘符), 索引)
.如果真 (文件是否存在 (到文本 (盘符 [索引]) + 编辑框1.内容))
编辑框2.加入文本 (到文本 (盘符 [索引]) + 编辑框1.内容)
状态条1.置文本 (0, “文件已找到!”)
跳出循环 ()
.如果真结束
列表 (到文本 (盘符 [索引]), 编辑框1.内容)
.计次循环尾 ()
恢复鼠标 ()
找到 = 假
.子程序 _按钮2_被单击
结束 ()[/e] |
|