Public Function ShortenFileName(FileName As String, _
DesiredLength As Integer) As String If DesiredLength >= 30 Then If Len(FileName) > DesiredLength Then ShortenFileName = Left(FileName, _ (DesiredLength / 2) - 2) ShortenFileName = ShortenFileName & "...." ShortenFileName = ShortenFileName & _ Right(FileName, Int((DesiredLength / 2) - 2)) Else ShortenFileName = FileName End If Else ShortenFileName = FileName End If End Function 'es. 'ShortenFileName _ '("c:\program files\really\really\extremely long\filename.txt",35) 'Restituisce 'c:\program files....ng\filename.txt" Inputs:FileName - String DesiredLength - Integer Returns:Shortened File Name (string) Assumes:Example: ShortenFileName ("c:\program files\really\really\extremely long\filename.txt",35) Returns: c:\program files....ng\filename.txt" |