GetFilename, GetExtension, .. others

GetFilename, GetExtension, GetFilename_noExtension, GetFilename_wExtension
To break file name into its parts.

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
Function GetFilename_noExtension(Filename)
GetFilename_noExtension = ""
Filename1 = GetSon(Filename)
DotLoc = InStrRev(Filename1, ".")
If DotLoc > 0 Then GetFilename_noExtension = Left(Filename1, DotLoc - 1)
End Function
Function GetFilename(Filename)
GetFilename = GetFilename_wExtension(Filename)
End Function
Function GetFilename_wExtension(Filename)
GetFilename_wExtension = ""
Filename1 = GetSon(Filename)
DotLoc = InStrRev(Filename1, "/")
If DotLoc = 0 Then DotLoc = InStrRev(Filename1, "\")
If DotLoc > 0 Then
GetFilename_wExtension = Left(Filename1, DotLoc - 1)
Else
GetFilename_wExtension = Filename1
End If
End Function

Filename

Views 4,442

Downloads 1,223

CodeID
DB ID

ANmarAmdeen
602
Revisions

v2.0

Thursday
May
2
2019
Needs