我是用映象的办法了,代码都写出来了,用的API,请大家给我看看,不过他就是连不上去,
Public 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
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As String
pRemoteName As String
pComment As Long
pProvider As Long
End Type
Dim lpnet As NETRESOURCE
lpnet.dwType = 0
lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
If WNetAddConnection2(lpnet, "lhh", "", 1) <> 0 Then '对方是win98,no username
MsgBox "网络连接错误"
Exit Sub
Else
lstFile.Path = strLocalDriveLetter
'MsgBox ("已经成功映射连接上服务器!")
End If
说明:::
首先谢谢大家给我的建议,分是在解决问题字后一定会给的,不过帮忙的朋友越多,每人的分就少了,所以请各位能尽快帮我解决这个问题,给您请安了.
1.lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
2.lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
3.密码也是对的哦!
Public 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
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As String
pRemoteName As String
pComment As Long
pProvider As Long
End Type
Dim lpnet As NETRESOURCE
lpnet.dwType = 0
lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
If WNetAddConnection2(lpnet, "lhh", "", 1) <> 0 Then '对方是win98,no username
MsgBox "网络连接错误"
Exit Sub
Else
lstFile.Path = strLocalDriveLetter
'MsgBox ("已经成功映射连接上服务器!")
End If
说明:::
首先谢谢大家给我的建议,分是在解决问题字后一定会给的,不过帮忙的朋友越多,每人的分就少了,所以请各位能尽快帮我解决这个问题,给您请安了.
1.lpnet.pLocalName = "G:" '此盘符是对的,我的机器最后一个盘是F:我本来是用函数获得它的,现在我给大家看的是一个简单的,
2.lpnet.pRemoteName = "\\des7\lhh share" '此为des7机器上的一个共享目录"lhh share"有空格的.
3.密码也是对的哦!
解决方案 »
- 求教:在VB的OLE中显示想导入ACCESS的EXCEL数据如何操作
- 想编一个通过串口控制数字功放的程序
- 这样的查询SQL 如何写?
- 请问如何用VB6编写一个通过互联网向移动发送短消息的小程序?
- 如何在VB里加载ppt?
- [苦苦寻找]有用C语言编写DLL的编译器吗?(除了VC,BC,因为我感觉VC装了只用一个DLL功能太浪费了)
- 这样的sql语句怎么写?
- 动态检测文本框的内容
- 请教,ADO,DAO,DATA控件的sql命令格式是不是不一样????
- 问题征解,,来评价大家认为可以的VB网站。也向大家推荐一些吗
- VB的数据库里OLE类型的[存放的是文件],怎么还原成为File?
- 小问题很简单,保证给分,在线等待!
我想在此请问各位如何从注册表中获取系统中安装的某软件的安装路径呀??谢谢!! 在这里有所有的安装路径
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths
我现在要找的是别人用Delphi开发的InstallShield打包的软件,我在HKEY_CURRENT_USER\SOFTWARE下他的公司下看到了他的软件名和版本但没有安装路径,运行了他的应用程序了,但在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths 下找不到给应用程序,更不要说他的路径了!!
各位帮帮我呀!!