اجرای فایل از ادرس دهی در textbox

سلام خدمت دوستان
سوالی داشتم خدمتتون و اگر تکراری هست ببخشین چون گشتم ولی نتیجه نگرفتم
چطور میتونم در یه textbox که در فرم دارم ادرس فایلی رو بدم و با کلید که در کنارش میزارم اون فایل رو باز کنم؟ حالا هر فایلی که باشه

ممنون میشم راهنمایی بفرمایید

سلام
این کد رو برای رویداد کلیک ، کلیدت استفاده کن

   Dim objFD As Object 

   Dim strOut As String

 strOut = vbNullString

    Set objFD = Application.FileDialog(3)

          objFD.ButtonName = "انتخاب"

          objFD.Title = "لطفا فایل مورد نظر را انتخاب کنید"





           If objFD.Show = -1 Then

    

        strOut = objFD.SelectedItems(1)

    End If

    Set objFD = Nothing

    FolderSelection = strOut

    Dim strChoice As String

    

strChoice = FolderSelection

If Len(strChoice) > 0 Then

    Me.AccessPath = strChoice

Else

End If

بجای Me.AccessPath اسم تکست باکست رو بنویس

ممنون از توجه و پاسخگویی شما دوست عزیز
خب این کد ادرس رو روی textbox میندازه و لی من میخوام کلیدی هم داشته باشم که فایل رو از همون ادرسی که روی textbox افتاده اجراش کنم

و یه زحمت دیگه میشه در کنارشون یه لیبل یا چند تا لیبل گذاشت که مشخصات فایل رو نشون بده؟
مثل سایز و فرمت از اینجور چیزا؟
این دکمه تشکر حذف شده یا من نمیبینم؟

خواهشا راهنمایی بفرمایید دوستان
کارم خیلی واجبه
ممنون میشم

برای اجرا کردن

  Application.FollowHyperlink Me!AccessPath.Value

کمال تشکر رو دارم از پاسخگویی شما
فقط یه سوال دیگه دارم که اگه راهنمایی کنید لطف بزرگی کردین
در کنار این textbox ادرس فایلی که داریم یک textbox دیگه بزاریم و یه دکمه دیگه که با زدن دکمه فایل تکست اول رو به ادرس تکست دوم کپی کنه.

ممنون و سپاسگزارم

سلام تو نمونه یه کلید گذاشتم که هم فایل رو جای دیگه در کامپیوتر ذخیره میکنه و هم ادرس رو تو یه تکست بکس دیگه اگه درست متوجه منظورت شده باشم

ببخشید یادم رفت ضمیمه کنم

ممنون از لطفت دوست خوبم
ولی هیچ کدوم از باتن ها کار نمیکنه

ببخشید فکر کنم ایراد از اکسس منه

سلام تست کردم کار میکنه مشکل از افیس شماست احتمالا
یه تکس باکس بنام txtTarget اضافه کن یه کلید بذار و این کد رو براش کپی کن (برا کپی فایل در قسمت دیگر از کامپیوتر

Me.txtTarget = Me.AccessPath



Dim Dialog       As Object

    

    Dim Selected    As Long

    

    Set Dialog = Application.FileDialog(2)

    With Dialog

        .AllowMultiSelect = False

        .InitialFileName = Nz(Me!txtTarget.Value)

        .Title = "Name saved file"

        Selected = .Show

        If Selected <> 0 Then

            Me!txtTarget.Value = .SelectedItems.Item(1)

            If Not IsNull(Me!AccessPath.Value) Then

                 FileCopy Me!AccessPath.Value, Me!txtTarget.Value

            End If

        End If

    End With

    

    Cancel = True

اوکی افیس رو دوباره نصب کردم ردیف شد خیلی لطف کردی رفیق
فقط میشه کاری کرد که که وقتی عملیات کپی به اتمام رسید یه پیغامی بده یا یه پروگرس بار براش گذاشت؟
برای اینکه کاربر متوجه بشه کار کپی به اتمام رسیده.

ممنون

سلام خواهش
قبل از end if یه مسیج بذار

سلام عزیز
پروگرس بار هم میشه گذاشت؟

دوستان کمک لطفا
بجای مسیج میشه پروگرس بار گذاشت؟

راهنمایی کنید.ممنون