String Handling: Truncating Long Path Names

[Ron]

I *just* know there's a function to do this, but I can't
find it:

I want to take the following string:

c:\winnt\233424 32sss\2343243cc c\32432432423ee ee\2432424cc\t
tt\xxx\tttt\xxx \explorer.exe-ph33334

into something like:

c:\winnt\...\ex plorer.exe-ph33334

Is there a function to do this?

And a related question:

Is there a 64 char limit to the NotifyIcon text? If so,
can I override it?

Thanks.

RON

[Herfried K. Wagner [MVP]]

* "Ron" <an*******@disc ussions.microso ft.com> scripsit:

I *just* know there's a function to do this, but I can't
find it:

I want to take the following string:

c:\winnt\233424 32sss\2343243cc c\32432432423ee ee\2432424cc\t
tt\xxx\tttt\xxx \explorer.exe-ph33334

into something like:

c:\winnt\...\ex plorer.exe-ph33334

Is there a function to do this?

\\\
Private Declare Function GetWindowDC Lib "user32.dll " ( _
ByVal hwnd As IntPtr _
) As IntPtr

Private Declare Function ReleaseDC Lib "user32.dll " ( _
ByVal hwnd As IntPtr, _
ByVal hdc As IntPtr _
) As IntPtr

Private Declare Function PathCompactPath Lib "shlwapi.dl l" Alias "PathCompactPat hA" ( _
ByVal hDC As IntPtr, _
ByVal lpszPath As String, _
ByVal dx As Int32 _
) As Int32

Private Sub Test()
Dim hDC As IntPtr = GetWindowDC(Me. Handle)
Dim strFilePath As String = _
"C:\Program Files\Some Company\Some Product\bla\bla \File.txt"
PathCompactPath (hDC, strFilePath, 250)
MsgBox(strFileP ath)
ReleaseDC(Me.Ha ndle, hDC)
End Sub
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Blumidoo]

> I want to take the following string:

c:\winnt\233424 32sss\2343243cc c\32432432423ee ee\2432424cc\t
tt\xxx\tttt\xxx \explorer.exe-ph33334

into something like:

c:\winnt\...\ex plorer.exe-ph33334

Is there a function to do this?
You need to look for the position of the second and the last "\", create
substrings and concatenate them. Use InStr/InStrRev or
String.IndexOf/String.LastInde xOf. Watch out for the exceptions (ie. file in
root directory).
And a related question:

Is there a 64 char limit to the NotifyIcon text? If so,
can I override it?

ToolTip text must be less than 64 characters long.
http://msdn.microsoft.com/library/de...stexttopic.asp

Always look in MSDN for answers to your questions.

sincerely,
--
Sebastian Zaklada
Skilled Software
http://www.skilledsoftware.com
*************** *************** ******
SQL Source Control 2003 - for
SQL Server Source Safe integration
and custom databases documentation

[Jay B. Harlow [MVP - Outlook]]

Ron,
In addition to Herfried's suggestion of PathCompactPath , there is
PathCompactPath Ex that accepts a length instead of a HDC.

Something like:
Declare Auto Function PathCompactPath Ex Lib "shlwapi.dl l" (ByVal pszOut
As String, ByVal pszSrc As String, ByVal cchMax As Integer, ByVal dwFlags As
Integer) As Boolean

Public Shared Sub Main()
Dim stringIn As String
Dim stringOut As String
stringIn =
"c:\winnt\23342 432sss\2343243c cc\32432432423e eee\2432424cc\t tt\xxx\tttt\xxx \
explorer.exe-ph33334"
stringOut = New String(" "c, 34)
PathCompactPath Ex(stringOut, stringIn, stringOut.Lengt h, 0)
stringOut = stringOut.Trim( ChrW(0)) ' remove trailing null char
Debug.WriteLine (stringIn, "String in")
Debug.WriteLine (stringOut, "String out")
End Sub

Hope this helps
Jay

"Ron" <an*******@disc ussions.microso ft.com> wrote in message
news:6c******** *************** *****@phx.gbl.. .

I *just* know there's a function to do this, but I can't
find it:

I want to take the following string:

c:\winnt\233424 32sss\2343243cc c\32432432423ee ee\2432424cc\t
tt\xxx\tttt\xxx \explorer.exe-ph33334

into something like:

c:\winnt\...\ex plorer.exe-ph33334

Is there a function to do this?

And a related question:

Is there a 64 char limit to the NotifyIcon text? If so,
can I override it?

Thanks.

RON