スーの道具箱/気まぐれ日記/2006-04-05

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 WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" _
    (ByVal hWndOwner As Long, lpNetResource As NETRESOURCE, _
     ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Const RESOURCETYPE_ANY = 0&
Private Const CONNECT_INTERACTIVE = &H8

Sub hoge()
    Dim udtResource As NETRESOURCE
    Dim lngRet As Long
    With udtResource
        .dwType = RESOURCETYPE_ANY
        .lpLocalName = vbNullString
        .lpRemoteName = "\\hoge"
        .lpProvider = vbNullString
    End With
    lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
    If lngRet = 0 Then
        ' 接続成功
    End If
End Sub