目录监控

桂贤

求个监控目录源码，启动目录监控后只要目录下的文件有新增就不执行下一步，目录下超过几秒后没有新增文件就执行下一步。麻烦上传源码，我是真的，抄都抄不好

九重天and路八千

监听文件钩子

桂贤

我是不懂的都是找视频看和抄别人的，这两天一直在想，今晚终于看到个视频才搞好了，这个才是我想要的，你们看看

桂贤

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组	文本型		0
成员数	整数型
第二成员数	整数型
i	整数型
第二i	整数型

通用对话框1.初始目录 ＝ 编辑框1.内容
编辑框1.内容 ＝ 浏览文件夹 (“选择文件夹”, )
成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )
计次循环首 (成员数, i)
列表框1.加入项目 (数组 [i], )
计次循环尾 ()
输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)
程序_延时 (3, 1)
第二成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )
计次循环首 (第二成员数, 第二i)
列表框1.加入项目 (数组 [第二i], )
计次循环尾 ()
输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)
程序_延时 (3, 1)
判断循环首 (成员数 ≠ 第二成员数)
程序_延时 (3, 1)
成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )
计次循环首 (成员数, i)
列表框1.加入项目 (数组 [i], )
计次循环尾 ()
输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)
程序_延时 (3, 1)
第二成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )
计次循环首 (第二成员数, 第二i)
列表框1.加入项目 (数组 [第二i], )
计次循环尾 ()
输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)
程序_延时 (3, 1)
如果真 (成员数 ＝ 第二成员数)
跳出循环 ()

判断循环尾 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 成员数, 整数型<br /> .局部变量 第二成员数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 第二i, 整数型<br /> <br /> 通用对话框1.初始目录 ＝ 编辑框1.内容<br /> 编辑框1.内容 ＝ 浏览文件夹 (“选择文件夹”, )<br /> <br /> 成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )<br /> .计次循环首 (成员数, i)<br /> <br />     列表框1.加入项目 (数组 <i>, )<br /> <br /> .计次循环尾 ()<br /> <br /> 输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)<br /> <br /> <br /> 程序_延时 (3, 1)<br /> <br /> <br /> 第二成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )<br /> <br /> <br /> .计次循环首 (第二成员数, 第二i)<br /> <br />     列表框1.加入项目 (数组 [第二i], )<br /> <br /> .计次循环尾 ()<br /> <br /> 输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)<br /> <br /> 程序_延时 (3, 1)<br /> <br /> .判断循环首 (成员数 ≠ 第二成员数)<br /> <br />     程序_延时 (3, 1)<br /> <br />     成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )<br />     .计次循环首 (成员数, i)<br /> <br />         列表框1.加入项目 (数组 <i>, )<br /> <br />     .计次循环尾 ()<br /> <br />     输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)<br /> <br /> <br />     程序_延时 (3, 1)<br /> <br /> <br />     第二成员数 ＝ 文件_枚举 (编辑框1.内容, “*.*”, 数组, )<br /> <br /> <br />     .计次循环首 (第二成员数, 第二i)<br /> <br />         列表框1.加入项目 (数组 [第二i], )<br /> <br />     .计次循环尾 ()<br /> <br />     输出调试文本 (“枚举到” ＋ 到文本 (成员数) ＋ “个文件”)<br /> <br />     程序_延时 (3, 1)<br /> <br />     .如果真 (成员数 ＝ 第二成员数)<br /> <br />         跳出循环 ()<br /> <br />     .如果真结束<br /> <br /> <br /> .判断循环尾 ()

桂贤

鹏书 发表于 2024-5-20 22:21
[e=0].版本 2

.子程序 _按钮5_被单击

您这个是个死循环，运行不了啊！帮我改改

SummerTail

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
id	整数型
token	逻辑型

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

目录_监控文件修改W1 (编码_Ansi到Unicode (“D:\新建文件夹”, 假), 到整数 (&子程序1), id)

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
Action	整数型
Name	整数型
Length	整数型

变量名	类 型	静态	数组	备 注
szFileName	字节集

token ＝ 真
标签1.标题 ＝ “等待”
szFileName ＝ 指针到字节集 (Name, Length)
如果真 (Action ＝ #FILE_ACTION_ADDED )
编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 新增” ＋ #换行符 )
如果真 (Action ＝ #FILE_ACTION_REMOVED )
编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 删除” ＋ #换行符 )
如果真 (Action ＝ #FILE_ACTION_MODIFIED )
编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 修改” ＋ #换行符 )
如果真 (Action ＝ #FILE_ACTION_RENAMED_OLD_NAME )
编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 重命名_方式1” ＋ #换行符 )
如果真 (Action ＝ #FILE_ACTION_RENAMED_NEW_NAME )
编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 重命名_方式2” ＋ #换行符 )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

目录_停止监控目录 (id)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

token ＝ 假
标签1.标题 ＝ “放行”

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 id, 整数型<br /> .程序集变量 token, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 目录_监控文件修改W1 (编码_Ansi到Unicode (“D:\新建文件夹”, 假), 到整数 (&子程序1), id)<br /> <br /> .子程序 子程序1<br /> .参数 Action, 整数型<br /> .参数 Name, 整数型<br /> .参数 Length, 整数型<br /> .局部变量 szFileName, 字节集<br /> <br /> token ＝ 真<br /> 标签1.标题 ＝ “等待”<br /> szFileName ＝ 指针到字节集 (Name, Length)<br /> .如果真 (Action ＝ #FILE_ACTION_ADDED)<br />     编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 新增” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Action ＝ #FILE_ACTION_REMOVED)<br />     编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 删除” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Action ＝ #FILE_ACTION_MODIFIED)<br />     编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 修改” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Action ＝ #FILE_ACTION_RENAMED_OLD_NAME)<br />     编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 重命名_方式1” ＋ #换行符)<br /> .如果真结束<br /> .如果真 (Action ＝ #FILE_ACTION_RENAMED_NEW_NAME)<br />     编辑框1.加入文本 (编码_Unicode到Ansi (szFileName) ＋ “ | 重命名_方式2” ＋ #换行符)<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 目录_停止监控目录 (id)<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> token ＝ 假<br /> 标签1.标题 ＝ “放行”

test.e (958.81 KB, 下载次数: 12)

2024-5-20 22:45 上传

点击文件名下载附件

城管城管蹦擦擦

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件数量	整数型

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

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
目录	文本型
临时数组	文本型		0

目录 ＝ 取运行目录 () ＋ “\被监控文件夹”
文件_枚举 (目录, “*.*”, 临时数组, )
如果真 (文件数量 ＝ 0)
文件数量 ＝ 取数组下标 (临时数组, )

如果真 (文件数量 ≠ 取数组下标 (临时数组, ))
调试输出 (“变了”)
文件数量 ＝ 取数组下标 (临时数组, )

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件数量, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 目录, 文本型<br /> .局部变量 临时数组, 文本型, , "0"<br /> <br /> <br /> 目录 ＝ 取运行目录 () ＋ “\被监控文件夹”<br /> 文件_枚举 (目录, “*.*”, 临时数组, )<br /> .如果真 (文件数量 ＝ 0)<br />     文件数量 ＝ 取数组下标 (临时数组, )<br /> .如果真结束<br /> <br /> .如果真 (文件数量 ≠ 取数组下标 (临时数组, ))<br />     调试输出 (“变了”)<br />     文件数量 ＝ 取数组下标 (临时数组, )

城管城管蹦擦擦

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 文件数量, 整数型

.子程序 __启动窗口_创建完毕



.子程序 _时钟1_周期事件
.局部变量 目录, 文本型
.局部变量 临时数组, 文本型, , "0"


目录 ＝ 取运行目录 () ＋ “\被监控文件夹”
文件_枚举 (目录, “*.*”, 临时数组, )
.如果真 (文件数量 ＝ 0)
    文件数量 ＝ 取数组下标 (临时数组, )
.如果真结束

.如果真 (文件数量 ≠ 取数组下标 (临时数组, ))
    调试输出 (“变了”)
    文件数量 ＝ 取数组下标 (临时数组, )
.如果真结束

dlq663

精易模块  目录_监控文件修改

鹏书

  

子程序名	返回值类型	公开	备 注
_按钮5_被单击

变量名	类 型	静态	数组	备 注
a	文本型		0
上次	整数型

判断循环首 (真)
文件_枚举 (“E:\BaiduSyncdisk”, “*.*”, a, , , )
判断 (取数组成员数 (a) ＝ 上次)
' 执行你的操作
上次 ＝ 取数组成员数 (a)
延时 (5000)
处理事件 ()

判断循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮5_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 上次, 整数型<br /> <br /> .判断循环首 (真)<br />     文件_枚举 (“E:\BaiduSyncdisk”, “*.*”, a, , , )<br />     .判断开始 (取数组成员数 (a) ＝ 上次)<br />         ' 执行你的操作<br />     .默认<br />         上次 ＝ 取数组成员数 (a)<br />         延时 (5000)<br />         处理事件 ()<br />     .判断结束<br /> <br /> .判断循环尾 ()