以文本方式查看主题

-  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