新增文件自动删除

易语言 2020-07-06 14:38:07

句柄 = FindFirstChangeNotification (目录, 选择 (包括子目录, 1, 0), 监视的对象)
.如果真 (句柄 = #ERROR_INVALID_HANDLE)
ExitProcess (GetLastError ())
.如果真结束
输出调试文本 (句柄)
i = 1
.判断循环首 (1 = i)
处理事件 ()
信息 = WaitForSingleObject (句柄, -1)
' 输出调试文本 (信息)
.如果真 (信息 = 0)
列表框1.加入项目 (“文件夹内有文件被改变”, )
.如果真 (FindNextChangeNotification (句柄) = 0)
ExitProcess (GetLastError ())
.如果真结束

.如果真结束
延时 (100)
.判断循环尾 ()