030111

タイトル	ネットワークドライブを接続する
対象言語	VB4.0, Access95以降
動作確認ＯＳ	Windows95,98,NT4.0
使用関数	WNetAddConnection
改築日	1999/05/22(1998/02/04)
Source Download

ネットワークドライブ(UNCパス)をローカルドライブに割り当てます。

この関数は 16BitWindowsと互換を残すためにある関数です。
Win32では WNetAddConnection2 API関数を使った方が良さそうです。

1. フォームを作成しコマンドボタン（Command1）を貼り付けてください。

Private Sub Command1_Click()

　　 Dim net As String
　　 Dim pas As String
　　 Dim drv As String

　　 net = "\\Server\test" 'ここは適当に変えよう
　　 pas = vbNullString
　　 drv = "m"

　　 If Y_ConnectNetDrive(net, pas, drv) Then
　　　　 Call MsgBox("ネットワーク接続しました (^_^)v")
　　 Else
　　　　 Call MsgBox("ネットワーク接続失敗 (ToT)")
　　 End If

End Sub

2.モジュールウインドウを作成し、下のソースを入力してください。

Option Explicit

'ネットワークドライブを接続する
Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" _
(ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Public Function Y_ConnectNetDrive(NetPath As String, PassWord As String, LocalDrv As String) As Boolean

'*******************************************************************
'機能 : 指定したネットワークパスをローカルドライブに割り当てる
'引数 : NetPath = 接続するネットワークリソース名
'　　　　PassWord = 接続パスワード ( "" ならパスワードなし）
'　　　　LcalDrv = 接続するローカルドライブ名
'戻り値: True = 接続成功
' False = 接続失敗
'*******************************************************************

　　 Dim longret As Long
　　 Dim drv As String

　　 drv = Left$(LocalDrv, 1) & ":"

　　 longret = WNetAddConnection(NetPath, PassWord, drv)

　　 Y_ConnectNetDrive = (longret = 0)

End Function