Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> API  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1701955
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

用来映射网络硬盘的类模块

作者:未详  摘自:未详  :cg1  更新日期:2006-11-21  浏览人次:

 

映射网络盘-类模  
[ 作者:gnoy    转贴自:歌逸软件网    点击数:155    更新时间:2006-11-4    文章录入:gnoy ] 
 


发布日期:2006-11-4

作    者: gnoy

摘    要:用来映射网络硬盘的类模块

正    文:

Option Compare Database
Option Explicit 


'Name                   clsMapdriver
'Purpose:               Map net driver
'Version:               1.1
'Calls:                 None
'Returns:               Property values. 

'Created by:            Gnoy Wang
'Credits:               It's yours for the taking!<grin>
'Date:                  Jun 19,2004
'Time:                  13:31:11 pm
'Feedback:              gnoy@163.com
'Copyright:         Please feel free to use this code
'                       without restriction in any application you develop,
'                       whether private or commercial.
'                       This code may not be resold by itself or as
'                       part of a collection.
'
'What's Missing!:       Lots! This is just a start but you have to start somewhere!
'Bugs:                  Let me know! 

'eg:
'===================================================================================
'    Dim objMapdriver As New clsMapdriver
'    With objMapdriver
'        .Localdriver = "w:"        'to be changed
'        .RemoteName = "\\...\..."  'to be changed
'        .UserName = "username"     'to be changed
'        .UserPassword = "password"  'to be changed
'
'        If Not .Added Then
'           .AddNetDriver
'        End If
'        'If Not .Deleted Then
'           '.DeleteNetDriver
'        'End If
'    End With
'=================================================================================== 

Const RESOURCETYPE_DISK = &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
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 

Dim theNetResource As NETRESOURCE 

Dim strUserName As String
Dim strUserPassword As String
Dim strNetFullpath As String
Dim strLocaldriver As String 

Dim blnadd As Boolean
Dim blndelete As Boolean
Public Property Let RemoteName(strRemoteName As String)
    strNetFullpath = strRemoteName
End Property
Public Property Let UserName(strName As String)
    strUserName = strName
End Property
Public Property Let UserPassword(strPassword As String)
    strUserPassword = strPassword
End Property
Public Property Let Localdriver(strdriver As String)
    strLocaldriver = strdriver
End Property
Public Property Get Localdriver() As String
    Localdriver = strLocaldriver
End Property
Public Property Get UserPassword() As String
    UserPassword = strUserPassword
End Property
Public Property Get UserName() As String
    UserName = strUserName
End Property
Public Property Get RemoteName() As String
    RemoteName = strNetFullpath
End Property
Public Property Get Added() As Boolean
    Added = blnadd
End Property
Public Property Get Deleted() As Boolean
    Deleted = blndelete
End Property 

Private Sub Class_Initialize()
'
End Sub 

Private Sub Class_Terminate()
'
End Sub 

Public Function AddNetDriver() As Boolean
    On Error GoTo ADD_Err:
    theNetResource.lpRemoteName = RemoteName
    theNetResource.lpLocalName = Localdriver
    UserName = UserName
    UserPassword = UserPassword
    theNetResource.dwType = RESOURCETYPE_DISK 

    WNetAddConnection2 theNetResource, UserPassword, UserName, 0 

    AddNetDriver = True
    blnadd = True
    Exit Function
ADD_Err:
    AddNetDriver = False
    blnadd = False 

End Function
Public Function DeleteNetDriver() As Boolean
    On Error GoTo delete_Err:
    theNetResource.lpRemoteName = RemoteName 

    WNetCancelConnection2 theNetResource.lpLocalName, 0, 0
    DeleteNetDriver = True
    blndelete = True
    Exit Function
delete_Err:
    DeleteNetDriver = False
    blndelete = False 

End Function


将以上类模保存为:clsMapdriver

然后按如下调用

'eg:


'===================================================================================
'    Dim objMapdriver As New clsMapdriver
'    With objMapdriver
'        .Localdriver = "w:"        'to be changed
'        .RemoteName = "\\...\..."  'to be changed
'        .UserName = "username"     'to be changed
'        .UserPassword = "password"  'to be changed
'
'        If Not .Added Then
'           .AddNetDriver
'        End If
'        'If Not .Deleted Then
'           '.DeleteNetDriver
'        'End If
'    End With
'===================================================================================
 
 

 

 
相关文章
     没有手动相关文章
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利