Code

FileName$ = "C:\windows\clouds.bmp" ext = Mid$(FileName$, InStr(1, FileName$, ".") + 1, 3)

البته در این مثال فایل مورد نظر ما با نام clouds.bmp در نظر گرفته شده است.

موفق باشید.

منبع:www.cesblog.ir