[aghamali]

کد:

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


'Function to get filetitle from full path


Public Function getfiletitle(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

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

درود
آقا ممنونم بابت کمک شما
فقط اگر امکنش هست یکم توضیح بدید یا راهنمایی کنید
بنده فایل متنی رو لود کردم اما این کد چطوری نشون میده میده کدینگ و فورمتش رو ؟