App.path

[.:KeihanCPU:.]

سلام دوستان
دستور App.path مسیر فایل اجرایی رو برمیگردونه
برای مثال اگه محل اجرا پوشه Windows باشه با کد زیر ما System32 رو هم داریم
البته اگه Win در اینجا آدرس پوشه windows باشه.


sys=app.path & "\system32"

حالا اگه بخوایم در مثال بالا و امثال اون اسم پوشه قبل از App.path رو پیدا کنیم چه باید کرد؟

[AmirAmiri]

خیلی ساده میتونی حاصله عبارته App.Path رو داخل متغیر بریزی و اونو از آخر جستجو کنی InStrRev و اگر به \ (ابک اسلش) رسیدی مسیره از اون میشه همون پوشه ی قبلی. البته در اینجا باید بین دو تا بک اسلش سرچ کنی تا فقط نامه پوشه ی قبلی رو بدست بیاری اما اگر به مسیرش احتیاج داری نه به نامش میتونی از همون بک اسلش تا اول عبارت رو داخل متغیر دیگه ای بریزی.


C:\WINDOWS\system32

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


C:\WINDOWS\system32

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

[AmirAmiri]

البته قسمتی که لازم داری رو باید با تابع Left یا تابع MID جدا کنی به این صورت که از اول رشته تا همون عددی که تابع InStrRev برمیگردونه رو جدا کنی و داخل متغییر دوم قرار بدی.
اگر مشکلی داشته بگو چون فکر کنم دیگه خیلی واضح باشه.

[.:KeihanCPU:.]

میشه خودت با یه پروژه مشکلمو حل کنی

[AmirAmiri]

بقرما اینم کدش امیدوارم درست کار کنه.


Private Sub Command1_Click()
Text1.Text = App.Path
x = InStrRev(App.Path, "\")
Text2.Text = Left(App.Path, x - 1) ' Masire ghabli
x = InStrRev(Text2.Text, "\")
Text3.Text = Mid(Text2.Text, x + 1) 'Name Foldere ghabli
End Sub

[.:KeihanCPU:.]

دوست عزیز برای اینکه عبارت DFG در kdghalsodfgkl جستجو بشه باید چه کدی رو نوشت
اگه زیادی میپرسم شرمنده آخه تا حالا با این دستور کار نکردم

[sokote_bi_payan]

به نام خدا

سلام

انقدر دردسر نداره که اینم کدش:



dim a() as string
a= split(app.path, "\")
msgbox a(ubound(a)-1)


موفق باشید

یا علی