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

Parameters

FileName

Views 125 Downloads 51

Perm link


ANmarAmdeen
283
File System Classic ASP
Revisions

v1.0