انتخاب فایل اجرائی با open file dialog و اجرا نمودن آن با کد نویسی Access

در این تکنیک استفاده از Open File Dialog و انتخاب فایل و همچنین روش اجرای برنامه های اجرائی از داخل کدهای VBA Access نمایش داده می شود.

برای این منظور ابتدا یک فرم همانند فرم زیر ساخته و کنترل های زیر را در آن قرار دهید:

form1:

button: btnChooseFile

button: btnGo

textbox: txtApplicationName

حالا کدهای زیر را در روال های فرم وارد نمائید:

Private Sub btnChooseFile_Click()

    Dim ofd As Object

    Dim varfile As Variant

    Me.txtApplicationName = ""

    Set ofd = Application.FileDialog(3)

    ofd.AllowMultiSelect = False

    ofd.Title = "Please select one application (.exe)"

    ofd.Filters.Clear

    ofd.Filters.Add "Application (*.exe)", "*.exe"

    ofd.InitialFileName = "C:\Program Files\Internet Explorer\iexplore"

    If ofd.Show = True Then

        For Each varfile In ofd.selecteditems

            Me.txtApplicationName = varfile

        Next varfile

    End If

End Sub

Private Sub btnGo_Click()

    Call Shell(Me.txtApplicationName, vbNormalFocus)

End Sub

در این برنامه ابتدا با زدن دکمه انتخاب فایل، Application.FileDialog اجرا شده و چون فیلتر این Dialog در کدها پسوندهای .exe معرفی شده، لذا فقط می توان فایل های exe یا همان Application ها را انتخاب نمود.

با InitialFileName می توان برای Dialog تعریف نمود که در ابتدا در چه مسیری باز شود.

مرحله بعد selecteditems می باشد که با آن نام فایل انتخاب شده استخراج و در Textbox قرار می گیرد. با فرمان .Show = True در صورتی که فایلی انتخاب نشود خطائی نیز رخ نخواهد داد و در آن صورت مسیر فایل درون Textbox قرار می گیرد.

با زدن دکمه Go، فرمان Call Shell اجرا شده و فایل اجرائی مورد نظر را فراخوانی می کند.

از این تکنیک در قسمتهای مختلفی در برنامه های Access می توان استفاده نمود و ضمنأ با توجه به مورد می توان بدلخواه شرایط Dialog را نیز تغییر داد.