以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于FileChanged (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179447) |
-- 作者:fvcfox -- 发布时间:2022/8/24 17:18:00 -- 关于FileChanged 在监视的目录,当打开excel表格时还未修改保存,FileChanged就执行了,请问怎么解决,TXT的文本文件就能正常 |
-- 作者:有点蓝 -- 发布时间:2022/8/24 17:23:00 -- office文件打开时会生成2个隐藏临时文件。判断一下文件的后缀,不是xls、xlsx的不处理 |
-- 作者:fvcfox -- 发布时间:2022/8/24 19:48:00 -- Dim ifo As New FileInfo(e.FullPath) If ifo.Extension <> ".xls" Or ifo.Extension <> ".xlsx" Or ifo.Extension <> ".doc" Or ifo.Extension <> ".docx" Then MessageBox .Show(e.FullPath ) Return End If ...... 在程序上面加了这个,但是真的表格文件修改点保存也不执行下面的的程序了
|
-- 作者:有点蓝 -- 发布时间:2022/8/25 8:34:00 -- If ifo.Extension <> ".xls" andalso ifo.Extension |