جدا کردن آخرین اسم از آدرس یک فایل

[m2011kh]

سلام دوستان.
من یه آدرس دارم مثلا:
C:\windows\system32\Winsck6
من میخوام کلمه ی Winsck6 رو از بقیه آدرس جدا کنم.
در واقع همه حروف هایی که از سمت راست به چت قبل از کاراکتر "\" هستند رو جدا کنم.
ممکنه این آدرس هر آدرسی باشه.
اگه این آدرس برعکس باشه مثلا:
Winsock6\system32\windows\:C
من با این آدر مشکلی ندارم و میتونم کلمه ی Winsck6 رو در بیارم ولی در آدرس اول نمیتونم.
از راهنمایی تون ممنون میشم.

[Mohammad.sweets]

میتونی از دستور زیر استفاده کنی...مثلا اگه میخوای کلمه ی M4 رو از آدرس زیر جدا کنی....:
M4\WINDOWS\SYSTEM

دستور:
Dim I As Integer
I = InStr(Text1.Text, "\")
Text1.Text = Left(Text1.Text, I - 1)


و اگه مسیرت به شکل زیره:
C:\WINDOWS\M4
و میخوای M4 رو جدا کنی از دستور:
Text1.Text = Mid(Text1.Text, InStrRev(Text1.Text, "\") + 1)

استفاده کن

[amin32]

اینجوری هم میشه:


a = Split("C:\windows\system32\Winsck6", "\")
Print a(UBound(a))

[بهروز عباسی]

درود به شما
لینک زیر هم ببین
How to get a file only? (http://stackoverflow.com/questions/1403980/how-to-get-a-file-only)

موفق باشید

[MohammadGh2011]

سلام دوستان.
من یه آدرس دارم مثلا:
C:\windows\system32\Winsck6
من میخوام کلمه ی Winsck6 رو از بقیه آدرس جدا کنم.
در واقع همه حروف هایی که از سمت راست به چت قبل از کاراکتر "\" هستند رو جدا کنم.
ممکنه این آدرس هر آدرسی باشه.
اگه این آدرس برعکس باشه مثلا:
Winsock6\system32\windows\:C
من با این آدر مشکلی ندارم و میتونم کلمه ی Winsck6 رو در بیارم ولی در آدرس اول نمیتونم.
از راهنمایی تون ممنون میشم.
سلام عليکم
تابع split در اين مواقع مفيد ميباشد:
MsgBox Split("C:\windows\system32\Winsck6", "\")(3)



موفق باشيد

[m2011kh]

ممنون از همه دوستان مشکلم حل شد.
متشکرم
MMD