目录_监控文件修改W1 怎么实现全盘监控？

aniushu

目录_监控文件修改W1 怎么实现全盘监控？或者说结合 取驱动器列表 () 使用多线程，请大佬指点.

aniushu

[JavaScript] 纯文本查看 复制代码

.版本 2
.支持库 spec

.子程序 ActionProc
.参数 Action, 整数型
.参数 FileName, 整数型
.参数 FileNameLength, 整数型
.局部变量 szFileName, 字节集
.局部变量 局_原文件路径, 文本型
.局部变量 局_新文件路径, 文本型

调试输出 (“进入监控”)

szFileName ＝ 指针到字节集 (FileName, FileNameLength)
.判断开始 (Action ＝ #FILE_ACTION_ADDED)
    调试输出 (“新增文件”, 编码_Unicode到Ansi (szFileName))
    延时 (10)
    局_原文件路径 ＝ 集_盘符 ＋ 编码_Unicode到Ansi (szFileName)
    调试输出 (编码_Unicode到Ansi (szFileName))
    局_新文件路径 ＝ 编辑框_文件保存路径.内容 ＋ “\” ＋ 编码_Unicode到Ansi (szFileName)
    调试输出 (“局_原文件路径” ＋ 局_原文件路径, “局_新文件路径” ＋ 局_新文件路径)
    调试输出 (复制文件 (局_原文件路径, 局_新文件路径))

.' 判断 (Action ＝ #FILE_ACTION_REMOVED)
    ' 调试输出 (“删除文件”, 编码_Unicode到Ansi (szFileName))
.' 判断 (Action ＝ #FILE_ACTION_MODIFIED)
    ' 调试输出 (“修改文件”, 编码_Unicode到Ansi (szFileName))
.' 判断 (Action ＝ #FILE_ACTION_RENAMED_OLD_NAME)
    ' 调试输出 (“重命名文件”, 编码_Unicode到Ansi (szFileName))
.' 判断 (Action ＝ #FILE_ACTION_RENAMED_NEW_NAME)
    ' 调试输出 (“重命名文件2”, 编码_Unicode到Ansi (szFileName))
.默认

.判断结束

w5717

这个是我之前写的案例，可以编译出来，放到想要监控的文件夹或盘符下即可监控。

aniushu

w5717 发表于 2023-4-11 18:58
这个是我之前写的案例，可以编译出来，放到想要监控的文件夹或盘符下即可监控。 ...

单线程啊我要多线程，单线程的我已经可以监控了

小白看世界

去易语言资源网找一下  ReadDirectoryChangesW  有会大神写了的 改一下就可以多线程监控了

小白看世界

去易语言资源网 找ReadDirectoryChangesW   有个大佬写了一个   用线程启动就可以监控多个目录了

aniushu

小白看世界 发表于 2023-4-11 20:15
去易语言资源网 找ReadDirectoryChangesW   有个大佬写了一个   用线程启动就可以监控多个目录了 ...

我是没懂如何控制多线程

钥匙key

aniushu 发表于 2023-4-12 08:28
我是没懂如何控制多线程

多线程不难。关键是多线程后。分别监控多个盘符时。如何区分盘符。。这个就不清楚了。

aniushu

钥匙key 发表于 2023-4-12 10:30
多线程不难。关键是多线程后。分别监控多个盘符时。如何区分盘符。。这个就不清楚了。 ...

刚我想到了个，不就26个盘符吗？我这样，复制26个函数出来。然后在界面中给他26个选项，界面创建完毕后使用命令取驱动器列表 ()，然后给26个选项把没识别的全部禁用，识别出来的显示出来，按开始监控后分别执行没禁用的那几个函数。

钥匙key

aniushu 发表于 2023-4-12 11:06
刚我想到了个，不就26个盘符吗？我这样，复制26个函数出来。然后在界面中给他26个选项，界面创建完毕后使 ...

不是这个。而是多线程后。回调里面没有盘符信息。这样一来。回调在哪个盘就不知道了。单线程是固定一个盘。多线程是多个盘同时监听。。