正常的使用文件拷贝命令，不过路径上写成 \\192.168.0.2\d$\r.txt
创新互联主营噶尔网站建设的网络公司,主营网站建设方案,重庆APP开发,噶尔h5成都小程序开发搭建,噶尔网站营销推广欢迎噶尔等地区企业咨询
共享的磁盘要加$符号，共享的目录直接打目录名
1,点击任务栏右下角的网络图标，然后打开网络和共享中心.
2,网络和共享中心中:点击左侧的更改高级共享设置按钮.
3,打开的窗口,修改密码保护的共享，选择关闭密码保护共享.
4,然后打开电脑的控制面板。在控制面板中打开管理工具.
5,管理工具:点击打开这里的本地安全策略.
6,本地策略的安全选项:确保这里的来宾账户状态是启用状态。
7,在管理工具中打开计算机管理。
8,计算机管理的本地用户和组中点击用户右侧的GUEST来宾双击。
9,Guest属性窗口中如图进行设置修改。
10,在guest来宾账户上单击鼠标右键，然后选择设置密码。
11,设置密码窗口中，这里什么也不要输入，然后点击确定。
通常这样就取消了共享文件访问密码。
如果你有该永动机的登陆用户名和密码.那简单了.
Shell("c:\windows\system32\cmd.exe /c net use \\192.168.0.199 """"" " /user:" """guest""")
里面冒号太多了.你可以通过CHR去转换里面中的一些冒号.
这句话可以不要人为去输入用户名和密码.
另外如果你可以使用
My.Computer.Network.DownloadFile()
函数去进行文件下载.这个比较方便 .
我想你肯定有服务器S上的管理员用户名和口令，这样你就可以先调用API建立一个IPC连接，然后你就能访问这台机器上的资源了。
在你的工程中增加一个模块，该模块代码如下：
Option Explicit
'=====================================说明======================================
'funIpcConn（资源名，用户名，口令）建立连接
'funIpcDisConn（资源名）断开连接
'引用：操作系统自带的库文件 mpr.dll
'=============================自定义常量========================================
Private Const RESOURCETYPE_DISK = H1
Private Const RESOURCE_GLOBALNET As Long = H2
Private Const RESOURCEDISPLAYTYPE_SHARE = H3
Private Const RESOURCEUSAGE_CONNECTABLE = H1
'=============================自定义结构========================================
Private Type NETRESOURCE
dwScope As Long
dwType As Long '用于指定网络的资源类型
dwDisplayType As Long
dwUsage As Long
lpLocalName As String '指定本地设备
lpRemoteName As String '指定远程网络名
lpComment As String
lpProvider As String '指定提供网络资源的供应商
End Type
'=================================API声明=======================================
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" ( _
lpNetResource As NETRESOURCE, _
ByVal lpPassword As String, _
ByVal lpUserName As String, _
ByVal dwFlags As Long _
) As Long
Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" ( _
ByVal lpName As String, _
ByVal dwFlags As Long, _
ByVal fForce As Long _
) As Long
Public Function funIpcConn(ByVal strRemoteName As String, ByVal strUserName As String, ByVal strPassword As String) As Boolean
'目的:建立网络间的联系
'返回: True ---- 成功
' False --- 失败
'注释:strRemoteName为要连接的计算机名称(如:\\HostName、\\192.168.199.144、\\HostName\Data)
' strUserName为登录的用户名,strPassword为登录的密码
Dim NetR As NETRESOURCE
NetR.dwScope = RESOURCE_GLOBALNET
NetR.dwType = RESOURCETYPE_DISK
NetR.dwDisplayType = RESOURCEDISPLAYTYPE_SHARE
NetR.dwUsage = RESOURCEUSAGE_CONNECTABLE
NetR.lpRemoteName = strRemoteName
'建立网络映射
funIpcConn = IIf(WNetAddConnection2(NetR, strPassword, strUserName, 0) = 0, True, False)
End Function
Public Function funIpcDisConn(ByVal strName As String) As Long
funIpcDisConn = WNetCancelConnection2(strName, 0, 0) '原样返回API的返回值
End Function
不能直接访问，需要先登录，然后才能访问。比如先
net USE\\计算机名\目录 登录密码 登录用户名 一下。
在网上邻居中找到你要复制文件夹的那台电脑，而且那个文件夹必须是共享的，然后你在网上邻居中双击进入那台电脑，里面就有那个文件夹了。不用那么麻烦。
重庆分公司
重庆分公司
