GetExtension

Gets the extension of file from its filename

CodeFunctionName
What is this?

Public

Tested

Original Work
Function GetExtension(Filename)
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