Windows APIの「WNetConnectionDialog」関数を使うと、「ネットワークドライブの割り当て」ダイアログを表示させることができます。
まず標準モジュールのDeclarationsセクションに次のコードを記述します。"Declare"の前に"Private"を付けることによってフォームのモジュールにも記述できます。
Declare Function WNetConnectionDialog Lib "mpr.dll" _
(ByVal hwnd As Long, ByVal dwType As Long) As Long
Const RESOURCETYPE_DISK = &H1
以下は、このAPIの呼び出し例です。
If WNetConnectionDialog(Application.hWndAccessApp, RESOURCETYPE_DISK) = 0 Then
MsgBox "接続成功!"
Else
MsgBox "接続失敗!"
End If
このコードを実行すると、次のような「ネットワークドライブの割り当て」ダイアログが表示されます。
 |