<DllImport("shlwapi.dll", CharSet:=CharSet.Auto)> _
   Shared Function PathCompactPathEx(ByVal pszOut As System.Text.StringBuilder, _
   ByVal szPath As String, ByVal cchMax As Integer, ByVal dwFlags As Integer) _
   As Boolean
   End Function
 
   Public Function CompactPath(ByVal fullName As String, ByVal length As _
     Integer) As String
      Dim sb As New System.Text.StringBuilder(length + 1)
 
      Call PathCompactPathEx(sb, fullName, length, 0)
 
      Return sb.ToString
   End Function