(06-22-2017، 11:31 AM)Amin_Mansouri نوشته:

کد:

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