Public Shared Function CompactPath(ByVal path As String, ByVal width As _
      Integer) As String
 
        Dim sb As New System.Text.StringBuilder(300)
        sb.Insert(0, path)
        Try
            Dim hdc As IntPtr
            Dim res As Boolean = clsApi.PathCompactPath(hdc, sb, width)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
        Return sb.ToString()
 
    End Function

mfgMeik MillerMein beste Code:If then