#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 |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved