جدا کردن قسمتی از تکست باکس

[xsalamx]

سلام
من مي خوام رشته اي رو که داخلtext1 هست رو در جاي ديگه نمايش بدم(البته قسمتيش رو)
به طور مثال مقداري که در text1 هست به اين صورت مي باشد :1 \C:\Documents and Settings\nima\Desktop
من مي خوام کاري کنم که جواب <<1>> رو به ما بده است
يک مثال ديگه:
مقدار داخل تکست1: C:\Documents and Settings\nima\Desktop\New Folder\New Folder\ABCD
جواب:ABCD
مقداری که داخل text1 هست متغییر می باشد .در هر حال مقدار بازگشتی بعد از آخرین << \ >> باشه
پیشاپیش از شما اساتید تشکر می کنم
خدا حافظ

[Iron_Fist]

 

[mbza11]

سلام.
مي توني از کد زير استفاده کني تا هميشه آخرين مقدار بعد از \ رو داشته باشي:

کد:

dim x() as string
x=split(text1.text,"\")
msgbox x(ubound)

فکر نمي کنم نياز به توضيح داشته باشه. اگه مشکل داشت همينجا بپرس.
موفق باشي.