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 297 Downloads 125

''

ANmarAmdeen
323
File System Classic ASP
Revisions

v1.0