主题：报表需要存储在共享文件夹以便不同部门审核应该怎么把登录权限些进去呢

1、你做一个登陆窗口，输入账号、密码；

2、参考下面代码登陆

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.1.240 密码 /user:账号")
p.StandardInput.WriteLine("exit")

1、你访问共享文件夹的账号密码是什么？

2、在红色地方输入账号密码，执行代码，即可访问共享文件夹

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 \\win-p589p7dh28g 密码 /user:账号")
p.StandardInput.WriteLine("exit")

Dim f As String = projectpath & "\\win-p589p7dh28g\reports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件

改成

Dim f As String = "\\win-p589p7dh28g\reports\" & e.form.controls("TextBox9").Text & ".doc" '指定目标文件