以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]访问共享文件夹问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86471)

--  作者:pcxjxjhkw
--  发布时间:2016/6/18 7:55:00
--  [求助]访问共享文件夹问题

内网共享了文件夹,设置了密码,

如何用代码访问该文件夹?

谢谢


--  作者:狐狸爸爸
--  发布时间:2016/6/18 8:49:00
--  

BeforeOpenProject加入代码

 

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  \\\\192.168.44.202\\ 密码 /user:用户名")
p.StandardInput.WriteLine("exit")

--  作者:pcxjxjhkw
--  发布时间:2016/6/18 13:58:00
--  
如何写成一路径?
--  作者:大红袍
--  发布时间:2016/6/20 1:02:00
--  
以下是引用pcxjxjhkw在2016/6/18 13:58:00的发言:
如何写成一路径?

 

什么意思?红色代码不是提示得很明显吗?要填上ip、用户名、密码。

 


--  作者:pcxjxjhkw
--  发布时间:2016/6/22 8:49:00
--  

例如:我在窗口一按钮中写代码,要判断该共享文件夹中是否有指定文件,若有则下载,

代码如何写?


--  作者:Hyphen
--  发布时间:2016/6/22 9:01:00
--  
参考http://www.foxtable.com/help/topics/0331.htm
--  作者:pcxjxjhkw
--  发布时间:2016/6/22 11:40:00
--  
没明白,可否写一小段代码?谢谢
--  作者:大红袍
--  发布时间:2016/6/22 11:40:00
--  

参考

 

http://www.foxtable.com/help/topics/0337.htm

 


--  作者:pcxjxjhkw
--  发布时间:2016/6/22 11:48:00
--  

If FileSys.FileExists("XXX") Then

 

XXX如何写,如何加入p.StandardInput.WriteLine( "net use \\\\192.168.44.202\\ 密码 /user:用户名")

 

如何判断共享了哪些文件夹?如何判断是否能访问?


--  作者:大红袍
--  发布时间:2016/6/22 11:55:00
--  

直接写文件名啊

 

\\\\192.168.1.108\\共享文件名\\文件名

 

判读文件夹名,获取所有文件夹,都可以啊。

 

http://www.foxtable.com/help/topics/0331.htm