Access Tips #232 ネットワークドライブの割り当てダイアログを表示する方法

Access Tips


#232	ネットワークドライブの割り当てダイアログを表示する方法	VBA、API
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 このコードを実行すると、次のような「ネットワークドライブの割り当て」ダイアログが表示されます。
\| Index \| Prev \| Next \|