Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何用代码打开共享目录


  共有2132人关注过本帖树形打印复制链接

主题：[求助]如何用代码打开共享目录
帅哥哟，离线，有人找我吗？
nbsfy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		[求助]如何用代码打开共享目录  发帖心情 Post By：2018/3/28 20:07:00 [显示全部帖子]

作为服务器的电脑（win2012）上设置了共享目录，\\fwq\asd   打开需输入用户名（user）和密码（123）！
如何用代码打开这个目录
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/28 20:36:00 [显示全部帖子]

感谢！
我去试下！
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/29 18:02: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 \\fwq\abc qwe /user:asd")     
p.StandardInput.WriteLine("exit")

If FileSys.DirectoryExists("\\fwq\abc\") Then     
Else
    e.Cancel=True
    msgbox("主机休眠中,无法连接数据库" )
End

第一次打开，显示  主机休眠中,无法连接数据库  
再打开，就能进去了！
是不是，代码位置放的不对！
[此贴子已经被作者于2018/3/29 18:17:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/29 18:18:00 [显示全部帖子]

我把代码放上来了！
我是放在BeforeOpenProject 里的！
[此贴子已经被作者于2018/3/29 18:20:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/30 12:08:00 [显示全部帖子]

再请教，程序运行中，要再换个更高权限的登陆名！
代码能否实现！
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/30 12:29:00 [显示全部帖子]

我之前用在windows中已经用其他账号登陆打开了这个共享目录。
现在程序打开时，需要换一个更高权限的账号登陆。
但是，程序打开后，共享目录权限还是之前打开的账号的权限！
能不能在代码中先退出前一个账号，再登陆！
 回到顶部
帅哥哟，离线，有人找我吗？
nbsfy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：398 威望：0 精华：0 注册：2016/9/8 9:27:00 		  发帖心情 Post By：2018/3/30 12:45:00 [显示全部帖子]

解决了！忘了输入代码p.StandardInput.WriteLine( "net use * /del /y")  
谢谢！
[此贴子已经被作者于2018/3/30 12:51:24编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询