以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助 文件监视器  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115160)

--  作者:jackyfashion
--  发布时间:2018/3/2 2:00:00
--  求助 文件监视器
老师:
您好!
以下代码是有文件名及扩展名
Dim ifo As new FileInfo("c:\\data\\123.xls")
Output.Show("扩展名:" & ifo.Extension)
在文件监视器监视 "E:\\"保存的文件,由于有几种不同扩展名的文件

FileCreated 事件代码

Dim r As Row = Tables("表A").Current
If Forms("AA").Opened Then
    r("第一列") = 223355 & ".jpg"
FileSys.CopyFile(e.FullPath,"D:\\" & r("第一列"),True)

老师:jpg扩展名有时候不是这个jpg,怎样可以获取每个监视文件保存的扩展名?
请老师指教!!!
谢谢老师!!!

--  作者:有点甜
--  发布时间:2018/3/2 9:02:00
--  

直接判断 e.FullPath 不就好了?

 

Dim ifo As new FileInfo(e.FullPath)
msgbox("扩展名:" & ifo.Extension)

 

http://www.foxtable.com/webhelp/scr/2707.htm

http://www.foxtable.com/webhelp/scr/0331.htm

 


--  作者:jackyfashion
--  发布时间:2018/3/2 14:30:00
--  
谢谢老师!!!
--  作者:jackyfashion
--  发布时间:2018/3/15 23:20:00
--  
老师:
您好!
请问文件监视器的"路径"能不能用代码动态设定?
请老师指教!
谢谢老师!!!

--  作者:有点甜
--  发布时间:2018/3/15 23:38:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1963.htm

 


--  作者:jackyfashion
--  发布时间:2018/3/16 23:40:00
--  
谢谢老师!!!