باز کردن یک درایو یا فولدر خاص در Explorer از طریق کد Access VBA

در برنامه های ساخته شده توسط نرم افزار Access شاید نیاز باشد در قسمتی از برنامه با زدن یک دکمه، My Computer باز شود و مسیر دلخواه ما را نمایش دهد و بتوانیم محتویات آن فولدر یا درایو را ببینیم. برای اینکار از کدهای زیر می توان استفاده نمود:

Private Sub Command0_Click()

       Dim Path

       Path = "D:\"

       Shell "cmd /c start """" explorer.exe " & Path, vbHide

End Sub 

Private Sub Command1_Click()

       Dim Path

       Path = "E:\New folder"

       Shell "cmd /c start """" explorer.exe " & Path, vbHide

End Sub