以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于文件监视器的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127473)

--  作者:km007
--  发布时间:2018/11/15 0:53:00
--  [求助]关于文件监视器的问题

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

 

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

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

--  作者:有点甜
--  发布时间: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
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2018/11/17 8:36:00
--  
1/2:Filter
字符型,设置要监控的文件类型,例如要监控文本文件,可以设置为"*.txt";要监控指定的某个文件,可以直接设置为文件名,例如"data.mdb";如果要监控所有文件,则设置为"*.*"

.Filter = "*.*"

3、会报错