设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 6126|回复: 12
打印 上一主题 下一主题

[模块/函数] 如何实现用代码打开局域网内的有账户和密码的共享文件夹

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2008-4-9 17:26:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题,
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
 楼主| 发表于 2008-4-10 08:14:57 | 只看该作者
这段代码,可以解快局域网内的连接问题.

点击这里给我发消息

3#
 楼主| 发表于 2008-4-10 14:48:00 | 只看该作者
顶起来,应该很多人都有如此经历.

点击这里给我发消息

4#
 楼主| 发表于 2008-4-11 12:04:15 | 只看该作者
[:50] [:50] [:50] [:50]
5#
发表于 2008-4-11 14:15:10 | 只看该作者
[:39] 关注哦
6#
发表于 2008-5-26 10:57:38 | 只看该作者
代码捏?!!!
7#
发表于 2008-5-26 11:22:19 | 只看该作者
[:35] [:35]
8#
发表于 2008-9-4 16:54:15 | 只看该作者
[:30]
9#
发表于 2010-4-20 21:35:15 | 只看该作者
方法一:
Function Connect() As Boolean
  On Error Resume Next
  With CreateObject("WScript.Network")
       .MapNetworkDrive "Z:", "\\Server\Share", , UserName, Password
       .RemoveNetworkDrive "Z:", True
  End With
  Connect = Err.Number = 0
End Function
10#
发表于 2010-4-21 07:46:04 | 只看该作者
楼主自问自答吗,还没有看到代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-20 20:53 , Processed in 0.210633 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表