GetExtension

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

FileName

Views 1059 Downloads 380

''

ANmarAmdeen
416
File System Classic ASP
Revisions

v1.0