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,658
Downloads 1,374
CodeID
DB ID
ANmarAmdeen
602
Revisions
v1.0
Saturday
May
12
2018