如何实现用代码打开局域网内的有账户和密码的共享文件夹

danis · 发表于 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

danis · 发表于 2013-9-22 16:58:17

答案已在眼前 9F

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

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

群介绍
主题无相 (随机显示版	同地区群块其他地区)