ShortFileName

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"