باز کردن یک درایو یا فولدر خاص در 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 

البته می توان صفحه Explorer را در خود فرم Access تعریف نمود تا بدون اینکه My Computer باز شود، در همان فرم Access بتوان محتویات را مشاهده نمود. برای این منظور در فرم Access یک کنترل Web browser تعریف نموده و نام آنرا WebBrowser1 قرار دهید. سپس می توانید کد زیر را در روال کلیک Command0 قرار دهید:

Private Sub Command0_Click()

       Dim Path

       Path = "E:\New folder"

       Me.WebBrowser1.ControlSource = "='" & Path & "'"

End Sub

البته این موارد صرفأ ایده هایی هستند که با خلاقیت می توان استفاده های بیشتری از آنها نمود