[求助]关于文件监视器的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于文件监视器的问题

共有2012人关注过本帖树形打印复制链接主题：[求助]关于文件监视器的问题

km007

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：5156 威望：0 精华：0 注册：2016/1/28 2:59:00

[求助]关于文件监视器的问题 发帖心情

Post By：2018/11/15 0:53:00 [只看该作者]

文件监视器如何监视局域网中已隐藏的文件夹，并且链接该共享文件夹需要输入对应的操作系统登陆账号和密码才能登陆打开的

例如：\\192.168.0.12\测试$ 这个文件夹，但是需要访问的话，需要输入账号和密码例如账号 admin 密码 123456

[此贴子已经被作者于2018/11/15 0:54:51编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/15 8:58:00 [只看该作者]

输入下面代码（只需要执行一次），可以登入共享文件夹

Dim p As new Process()

p.StartInfo.FileName = "cmd.exe"

p.StartInfo.UseShellExecute = False '关闭Shell的使用

p.StartInfo.RedirectStandardInput = True '重定向标准输入

p.StartInfo.RedirectStandardOutput = True '重定向标准输出

p.StartInfo.RedirectStandardError = True '重定向错误输出

p.StartInfo.CreateNoWindow = True '设置不显示窗口

p.Start()

p.StandardInput.WriteLine( "net use * /del /y")

p.StandardInput.WriteLine( "net use \\192.168.0.12 123456 /user:admin")

p.StandardInput.WriteLine("exit")

km007

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：5156 威望：0 精华：0 注册：2016/1/28 2:59:00

Post By：2018/11/17 1:08:00 [只看该作者]

With FileWatcher
    .Path = "c:\Data"
    .Filter = "Sale.mdb"
    .Delay = 1000
    .Enabled = True
End With

请问，如果我想监视

1、多个指定不同后缀名的文件，这里的 Filter 该怎么写呢？

2、多个指定没有后缀名的文件，这里的 Filter 该怎么写呢？

3、如果监视的共享文件夹所在的主机突然关机/重启了，那么此时程序会报错吗？

[此贴子已经被作者于2018/11/17 1:11:42编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106067 积分：539428 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/17 8:36:00 [只看该作者]

1/2:Filter
字符型，设置要监控的文件类型，例如要监控文本文件，可以设置为"*.txt"；要监控指定的某个文件，可以直接设置为文件名，例如"data.mdb"；如果要监控所有文件，则设置为"*.*"

.Filter = "*.*"

3、会报错

处理异常参考：http://www.foxtable.com/webhelp/scr/2070.htm

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

下一主题 >> << 上一主题

主题：[求助]关于文件监视器的问题