کپی کردن آدرس فایل درون تکست باکس

[eb_1345]

سلام
سپاسگزارم
اگر امکان دارد یکم بیشتر راهنمایی کنید که چطور هم یک آدرس خاص و ثابت باز شود و هم آدرس کامل فایل انتخاب شده با استفاده از توابعی که فرمودید انتخاب شود.

فرض می کنیم شما در مسیر جاری یک فایل اکسل داری با نام Excel.xls که میخواهی ضمن باز کردن آن آدرس کامل و نام کامل خود فایل و نام پسوند آن را بدست آورید
با این فرض از کدهای زیر استفاده می کنیم:

Application.FollowHyperlink CurrentProject.Path & "\Excel.xls"

Text1 = CurrentProject.Path & "\Excel.xls"

Text2 = Right(Text1, InStr(1, StrReverse(Text1), "\") - 1)

Text3 = Right(Text2, InStr(1, StrReverse(Text2), ".") - 1)

با این کدها مسیر کامل فایل در تکست 1 نام کامل فایل که Excel.xls می باشد در تکست 2 و نام پسوند فایل که xls می باشد در تکست 3 قرار می گیرد