devxlogo

GetFilePath – Extract the path portion of a file name

GetFilePath – Extract the path portion of a file name

' Retrieve a file's path'' Note: trailing backslashes are never included in the resultFunction GetFilePath(FileName As String) As String    Dim i As Long    For i = Len(FileName) To 1 Step -1        Select Case Mid$(FileName, i, 1)            Case ":"                ' colons are always included in the result                GetFilePath = Left$(FileName, i)                Exit For            Case ""                ' backslash aren't included in the result                GetFilePath = Left$(FileName, i - 1)                Exit For        End Select    NextEnd Function

devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist