نام فولدری رو که داخلش هستیم چیست ؟؟؟؟

[soheil-vb6]

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

[اوبالیت به بو]

اون بالا بنویس:

Dim Path as String
بعدش تویه Dir1_Change بنویس:

path = Dir1.path
If Right(path, 1) <> "\" Then
path = path & "\"
End If
Text1.Text = Dir1.path

[ali_habibi1384]

اگه منظورت از "داخلش هستیم" فایل اجرایی باشه از دستور app.path استفاده کن.

[SeyedMoosavi]

اگه منظورت از "داخلش هستیم" فایل اجرایی باشه از دستور app.path استفاده کن.

درسته شما می تونید از دستور

APP.Path

استفاده کنی این دستور محل فایل اجرایی رو برمی گردونه

[soheil-vb6]

من میخوام که نام فولدری را که داخلش هستم برگردونه (فقط نام فولدر )

[ali_habibi1384]

تعمیم دادن برنامه با خودته شما با برنامه نویسی میتونی این کارو انجام بدی مثالا وقتی کل مسیر رو داری از انتها پیمایش کن تا وقتی به / برسی اونو تویه یه تکست باکس بزار میشه فولدر جاریت!

[soheil-vb6]

اتفاقا این به ذهنم رسید و میدونم باید از تابع str استفاده کرد اما نمیتونم ازش استفاده کنم
اگه میشه راهنمایی کنید

[vbhamed]

Dim p$, i%, f$
p = Replace(App.Path & "\", "\\", "\")

For i = Len(p) - 1 To 1 Step -1

If Mid$(p, i, 1) = "\" Then

Exit For

Else

f = Mid$(p, i, 1) & f

End If

Next

MsgBox f

[اوبالیت به بو]

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

[MMR_1344]

از دستور


]InStrRev
برا ی یافتن سماره آخرین کارکتر "/" استفاده کنی و از دستور


Right

[bahman_bisavad]

از تابع mid استفاده کنید


x=mid(str,1,2)

رشته str رو از کاراکتر 1 به طول 2 کاراکتر جدا میکنه و در x می ریزه