打印

[求助] 如何实现访问另一台电脑的共享文件夹

替身

Super Moderator

Rank: 15

止于至善

帖子: 354
精华: 2
所在学校
所属专业
阅读权限: 150
在线时间: 80 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章 Stubc最高荣誉勋章 Stubc侠客

1^# 大中小发表于 2008-6-8 13:04 只看该作者

如何实现访问另一台电脑的共享文件夹

如题
局域网内一台机子如何用个VB实现访问另一台（服务器）的共享目录

耐得寂寞~

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

帖子: 424
精华: 6
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 94 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

2^# 大中小发表于 2008-6-8 14:14 只看该作者

网上有参考价值的似乎只有这个了：http://topic.csdn.net/t/20041211/14/3636262.html
估计你也看过了

本帖最近评分记录

替身学分 +20 这个我还没看到捏~ 2008-6-8 16:49

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP

load_me

Moderator

Rank: 12

帖子: 33
精华: 3
所在学校
所属专业
阅读权限: 100
在线时间: 48 小时
注册时间: 2008-3-9

3^# 大中小发表于 2008-6-8 15:46 只看该作者

如果共享的是\\192.168.0.1\c
shell "cmd /c explorer \\192.168.0.1\c",0

本帖最近评分记录

替身学分 +40 你真牛！ 2008-6-8 16:47

TOP

load_me

Moderator

Rank: 12

帖子: 33
精华: 3
所在学校
所属专业
阅读权限: 100
在线时间: 48 小时
注册时间: 2008-3-9

4^# 大中小发表于 2008-6-8 16:05 只看该作者

第二方法：
在用户界面form1创建一个command1命令按钮,代码如下。
Private Sub Form_Load()
Command1.Caption = "访问"
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim obshell
Set obshell = CreateObject("wscript.shell")
      If msFileName = msBackUp And msFileName <> "" Then
         obshell.run msFileName
      Else
         obshell.run "\\192.168.0.1\c"
      End If
End Sub

本帖最近评分记录

替身学分 +20 都收下了~ 2008-6-8 16:50

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

帖子: 424
精华: 6
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 94 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

5^# 大中小发表于 2008-6-8 16:16 只看该作者

第二种方法定义了shell类，不错。

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP

替身

Super Moderator

Rank: 15

止于至善

帖子: 354
精华: 2
所在学校
所属专业
阅读权限: 150
在线时间: 80 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章 Stubc最高荣誉勋章 Stubc侠客

6^# 大中小发表于 2008-6-8 16:49 只看该作者

load me 的果然行
哈哈  我找遍了网上  基本都是这个语句
shell "net use \\电脑名密码 /user:用户"
  还是你这个好  简单有效
shell "cmd /c explorer \\192.168.0.1\c",0
谢谢了挖  哈哈~

耐得寂寞~

TOP

blastar

Tech Support

Rank: 12

帖子: 59
精华: 0
所在学校
所属专业
阅读权限: 200
在线时间: 12 小时
注册时间: 2008-4-11

版主荣誉勋章优秀版主荣誉勋章

7^# 大中小发表于 2008-6-8 18:58 只看该作者

学习了，总结下，
Net Use
FSO
WshShell
Explorer

这上面4个可能有原理重复的，而且有各自的成功条件。
不知道直接Shell RemoteFile或者ShellExecute RemoteFile可不可以。

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

帖子: 424
精华: 6
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 94 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

8^# 大中小发表于 2008-6-8 21:10 只看该作者

呵呵，替身的毕业设计要升级了。哈哈

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP

替身

Super Moderator

Rank: 15

止于至善

帖子: 354
精华: 2
所在学校
所属专业
阅读权限: 150
在线时间: 80 小时
注册时间: 2008-3-14

超级版主荣誉勋章论坛建设者荣誉勋章 Stubc最高荣誉勋章 Stubc侠客

9^# 大中小发表于 2008-6-9 10:26 只看该作者

呵呵应该是简化了~

耐得寂寞~

TOP

王懿

Coofish

Super Moderator

Rank: 15

学以致用

帖子: 424
精华: 6
所在学校: 南京理工大学
所属专业: 机械电子工程
阅读权限: 150
性别: 男
来自: 安徽芜湖
在线时间: 94 小时
注册时间: 2008-3-20

超级版主荣誉勋章论坛建设者荣誉勋章优秀版主荣誉勋章

10^# 大中小发表于 2008-6-9 11:27 只看该作者

简化也是升级啊。
讨厌简单东西复杂化

每个人都有自己的优点，成功的人扬长避短，失败的人"不识庐山真面目，只缘生在此山中"！

TOP