Option Explicit
Private Enum ParseWhat pwDrive = 0 pwPath = 1 pwFileName = 2 pwExtention = 3 End Enum Private Function ParsePath(Path As String, _ WhatToParse As ParseWhat) As String Select Case WhatToParse Case pwDrive ParsePath = Mid(Path, 1, InStr(1, Path, "\")) Case pwPath ParsePath = Mid(Path, 1, InStrRev(Path, "\") - 1) Case pwFileName ParsePath = Mid(Path, InStrRev(Path, "\") + 1) Case pwExtention ParsePath = Mid(Path, InStrRev(Path, ".") + 1) End Select End Function |