بدست آوردن پسوند یک فایل در ویژال

[amirreza619]

سلام !
چجوری میتونم پسوند یک فایل رو در ویژال پیدا کنم ؟
اگه سورس بزارین ممنون میشم ! چون نحوه کار با system.io رو نمیدونم !!

[oYaMaa]

سلام!
اگر اون فایل رو open کنید و مسیرش رو داخل یه تکس باکس بذارید با کد زیر به نتیجه میرسید.
MsgBox Right(Text1.Text, 4)

[amirreza619]

ممنون ! ولی اگه پسوند فایل بیشتر از 3 حرف بود جی ؟ :متفکر:
مثلا :
.backup
.7zip
و ...
!!!

[oYaMaa]

MsgBox Split(Text1.Text, ".", , vbTextCompare)(1)

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

درود به همه کد زیر هم بد نیست!
Public Function getextension(filename As String) As String

For i = Len(filename) To 2 Step -1
c = Mid(filename, i, 1)
If c = "." Then
pos = i + 1
End If
Next

getextension = Mid(filename, pos, (Len(filename) + 1 - pos))
End Function

موفق باشید

[Mohammad.sweets]

یا کد زیر .....

Print Mid(Text1.Text, InStrRev(Text1.Text, ".") + 1)