Gets the extension of file from its filename
Function GetExtension(Filename)
GetExtension = ""
DotLoc = InStrRev(Filename, ".")
If DotLoc > 0 Then GetExtension = Right(Filename, Len(Filename) - DotLoc)
End Function
GetExtension = ""
DotLoc = InStrRev(Filename, ".")
If DotLoc > 0 Then GetExtension = Right(Filename, Len(Filename) - DotLoc)
End Function
FileName
Views 4,671
Downloads 1,385
CodeID
DB ID
ANmarAmdeen
610
Revisions
v1.0
Saturday
May
12
2018