GetShortenedFileName – Make a filename shorter using ellipses

GetShortenedFileName – Make a filename shorter using ellipses

' return a file path not longer than the number of character' specified in the 2nd argument'' If necessary, it replaces directory names with ellipsises'' Author: Fred Block'         CuzWare Systems'         E-mail: [email protected]'         Web Site: http://www.cuzware.comFunction GetShortenedFileName(ByVal strFilePath As String, _    ByVal maxLength As Long) As String    Dim astrTemp() As String    Dim lngCount As Long    Dim strTemp As String    Dim index As Long        ' if the path is shorter than the max allowed length, just return it    If Len(strFilePath) <= maxLength Then        GetShortenedFileName = strFilePath    Else        ' split the path in its constituent dirs        astrTemp() = Split(strFilePath, "")        lngCount = UBound(astrTemp)                ' lets replace each part with ellipsis, until the length is OK        ' but never substitute drive and file name        For index = 1 To lngCount - 1            astrTemp(index) = "..."            ' rebuild the result            GetShortenedFileName = Join(astrTemp, "")            If Len(GetShortenedFileName) <= maxLength Then Exit For        Next    End If    End Function

Share the Post:
Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular

XDR solutions

The Benefits of Using XDR Solutions

Cybercriminals constantly adapt their strategies, developing newer, more powerful, and intelligent ways to attack your network. Since security professionals must innovate as well, more conventional endpoint detection solutions have evolved

AI is revolutionizing fraud detection

How AI is Revolutionizing Fraud Detection

Artificial intelligence – commonly known as AI – means a form of technology with multiple uses. As a result, it has become extremely valuable to a number of businesses across

AI innovation

Companies Leading AI Innovation in 2023

Artificial intelligence (AI) has been transforming industries and revolutionizing business operations. AI’s potential to enhance efficiency and productivity has become crucial to many businesses. As we move into 2023, several