|
エクスプローラなどが表示するネットワークパス入力ダイアログは、Windows標準で実装されておりまして、
WNetAddConnection3などのAPIを使用することによって実現できます。
WNetAddConnection3を使ったサンプルはよく見かけますが、
パスワード入力の付きのサンプルはあまり見かけないようですので、手短に...
-------- 8< -------- 8= -------- 8< -------- 8= -------- 8< --------
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 = "\\ComputerName"
.lpProvider = vbNullString
End With
lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
If lngRet = 0 Then
' 接続成功
End If
End Sub
-------- 8< -------- 8= -------- 8< -------- 8= -------- 8< --------
エラー処理とかhWndOwnerの指定はしていないので、使用する状況によっては注意。
ではではぁ
|
|