你这个共享文件夹，是否设置账号密码，需要输入才能进入的？
如果设置账号密码，先执行这段代码后，再测试试试
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")
加好友 
发短信
Post By：2018/12/24 11:44:00 [只看该作者]
