Parsing a File String Into Path, File Name, and Extension
Sample 1: Extract a File name that includes the file extension
Function FileNameFromPath(strFullPath As String) As String FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\")) End Function
Sample 2: Extract a File name that does not include the file extension
Function FileNameNoExtensionFromPath(strFullPath As String) As String Dim intStartLoc As Integer Dim intEndLoc As Integer Dim intLength As Integer intStartLoc = Len(strFullPath) - (Len(strFullPath) - InStrRev(strFullPath, "\") - 1) intEndLoc = Len(strFullPath) - (Len(strFullPath) - InStrRev(strFullPath, ".")) intLength = intEndLoc - intStartLoc FileNameNoExtensionFromPath = Mid(strFullPath, intStartLoc, intLength) End Function
Sample 3: Extract a path to the containing folder (last character is a slash)
Function FolderFromPath(ByRef strFullPath As String) As String FolderFromPath = Left(strFullPath, InStrRev(strFullPath, "\")) End Function
Sample 4: Extract a file extension (no dot)
Function FileExtensionFromPath(ByRef strFullPath As String) As String FileExtensionFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, ".")) End Function