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

[mostafa580]

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

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

[ariayekta]

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

   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 اسم تکست باکست رو بنویس

[mostafa580]

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

[mostafa580]

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

[mostafa580]

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

[ariayekta]

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

  Application.FollowHyperlink Me!AccessPath.Value

[mostafa580]

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

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

[ariayekta]

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

[ariayekta]

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

[mostafa580]

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

[mostafa580]

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

[ariayekta]

سلام تست کردم کار میکنه مشکل از افیس شماست احتمالا
یه تکس باکس بنام 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

[mostafa580]

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

ممنون

[ariayekta]

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

[mostafa580]

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

[mostafa580]

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

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