بدست آوردن نام فایل

[xrezax]

دوستان من 2 تا تکس باکس دارم و یک دکمه
می خوام وقتی توی اولی مثلاً بنویسم ( C:\Program Files\Acronis\reza.exe) و روی دکمه کلیک کنم در تکست دومی اسم فایلو بنویسه مثلاً در اینجا اسم فایلم ( reza.exe ) هستش.
ممنون میشم با پروژه های وی بی توضیح بدین .

[xxxxx_xxxxx]

pos = InStrRev(Text1.Text, "\")
Text2.Text = Right(Text1.Text, Len(Text1) - pos)

موفق باشيد

[scarce]

کد زیر رو در یک دکمه قرار بدهید.


Private Sub Command1_Click()
Dim d, dd
Stoping:
d = InStr(d + 1, Text1, "\")
If d <> 0 Then
dd = d
End If
If d = 0 Then Text2 = Mid$(Text1, dd + 1, Len(Text1)): Exit Sub
GoTo Stoping:

'Coded By Scarce

End Sub

[xxxxx_xxxxx]

کد زیر رو در یک دکمه قرار بدهید.


Private Sub Command1_Click()
Dim d, dd
Stoping:
d = InStr(d + 1, Text1, "\")
If d <> 0 Then
dd = d
End If
If d = 0 Then Text2 = Mid$(Text1, dd + 1, Len(Text1)): Exit Sub
GoTo Stoping:

'Coded By Scarce

End Sub

oh my god
به جاي اين كار از تابع InStrRev كه عكس InStr عمل مي كنه استفاده كنيد.
شما همين تابع InStrRev رو شبيه سازي كرديد.

[Babak.Hassanpour]

اینم یه راه دیگه


Private Sub Command1_Click()
Dim StrAryFileName() As String
StrAryFileName = Split(Text1.Text, "\")
text2.Text = StrAryFileName(UBound(StrAryFileName))



مزیت این روش به روشهای دیگه دسترسی آسانتر به نام پوشه های موجود در مسیر فایله.(از روی شماره عنصر آرایه به راحتی بدست میاد)

ضمنا دوست عزیز، خودت زحمت بکش بریز توی فرم مورد نظرت(اگه زحمتی نیست.ببخشیدا)چون درست نیست فضای سایت رو با این چیزای ساده اشغال کنیم.