Dos - Taglia I Nomi Dei Files Lunghi In Formato 8 Caratteri

Windows # Taglia i nomi dei Files lunghi in formato 8 caratteri
Function LongDirFix(Incomming As String, Max As Integer) As String
Dim i As Integer, LblLen As Integer, StringLen As Integer
Dim TempString As String
TempString = Incomming
LblLen = Max
If Len(TempString) <= LblLen Then
LongDirFix = TempString
Exit Function
End If
LblLen = LblLen - 6
For i = Len(TempString) - LblLen To Len(TempString)
If Mid$(TempString, i, 1) = "\" Then Exit For
Next
LongDirFix = left$(TempString, 3) + "..." + _
right$(TempString, Len(TempString) - (i - 1))
End Function