اجرای فایل از ادرس دهی در 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]

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

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