主题：[求助]如何用代码打开共享目录

作为服务器的电脑（win2012）上设置了共享目录，\\fwq\asd   打开需输入用户名（user）和密码（123）！

beforeOpenProject写代码

 

打开某个目录，参考代码

 

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

 

感谢！

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 \\fwq\abc qwe /user:asd")
p.StandardInput.WriteLine("exit")
system.threading.thread.sleep(1000)
If FileSys.DirectoryExists("\\fwq\abc\") Then
   
Else
    e.Cancel=True
    msgbox("主机休眠中,无法连接数据库" )
End If

再请教，程序运行中，要再换个更高权限的登陆名！

 

如果要修改代码，需要替换原来的程序，才可以的。

 

你什么时候需要重新登陆进去，那就再什么时候执行2楼代码。