Office Tanabe - マイドキュメントのパスを取得する ～ Access 関数 オートメーション

Accessでマイドキュメントのパスは、
CreateObject("WScript.Shell").specialfolders("MyDocuments")
で取得できます。

フォームにあるコマンドボタン（ここではCommand1）をクリックしたら、
マイドキュメントのパスをメッセージボックスに表示するコード。

'--------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    MsgBox CreateObject("WScript.Shell").specialfolders("MyDocuments")

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub