View Full Version : نام فولدری رو که داخلش هستیم چیست ؟؟؟؟
soheil-vb6
چهارشنبه 28 آذر 1386, 22:39 عصر
اگه بخوام نام فولدری رو که داخلش هستم را در یک
text
نشون بده چیکار باید کنم
مرسی
راستی اگه بخوام لیست فولدرهای داخل دارکتوری که داخلش هستم را به دست بیارم چیکار باید کنم
اوبالیت به بو
چهارشنبه 28 آذر 1386, 22:48 عصر
اون بالا بنویس:
Dim Path as String
بعدش تویه Dir1_Change بنویس:
path = Dir1.path
If Right(path, 1) <> "\" Then
path = path & "\"
End If
Text1.Text = Dir1.path
ali_habibi1384
جمعه 30 آذر 1386, 23:37 عصر
اگه منظورت از "داخلش هستیم" فایل اجرایی باشه از دستور app.path استفاده کن.
SeyedMoosavi
پنج شنبه 06 دی 1386, 17:03 عصر
اگه منظورت از "داخلش هستیم" فایل اجرایی باشه از دستور app.path استفاده کن.
درسته شما می تونید از دستور
APP.Path
استفاده کنی این دستور محل فایل اجرایی رو برمی گردونه
soheil-vb6
شنبه 08 دی 1386, 14:22 عصر
من میخوام که نام فولدری را که داخلش هستم برگردونه (فقط نام فولدر )
ali_habibi1384
شنبه 08 دی 1386, 22:30 عصر
تعمیم دادن برنامه با خودته شما با برنامه نویسی میتونی این کارو انجام بدی مثالا وقتی کل مسیر رو داری از انتها پیمایش کن تا وقتی به / برسی اونو تویه یه تکست باکس بزار میشه فولدر جاریت!
soheil-vb6
یک شنبه 09 دی 1386, 01:57 صبح
اتفاقا این به ذهنم رسید و میدونم باید از تابع str استفاده کرد اما نمیتونم ازش استفاده کنم
اگه میشه راهنمایی کنید
vbhamed
یک شنبه 09 دی 1386, 04:03 صبح
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
اوبالیت به بو
یک شنبه 09 دی 1386, 05:19 صبح
اگه بخوام نام فولدری رو که داخلش هستم را در یک
text
نشون بده چیکار باید کنم
مرسی
راستی اگه بخوام لیست فولدرهای داخل دارکتوری که داخلش هستم را به دست بیارم چیکار باید کنم
شما مگه کد رو از طریق دایرکتوری نخواسته بودین؟؟؟
MMR_1344
یک شنبه 09 دی 1386, 09:10 صبح
از دستور
]InStrRev
برا ی یافتن سماره آخرین کارکتر "/" استفاده کنی و از دستور
Right
bahman_bisavad
پنج شنبه 13 دی 1386, 11:24 صبح
از تابع mid استفاده کنید
x=mid(str,1,2)
رشته str رو از کاراکتر 1 به طول 2 کاراکتر جدا میکنه و در x می ریزه
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.