[RESOLVED] Unknown VB bug... just for 2 lines of code

[winterslam]

msgbox getDesktopPath
msgbox getDesktopPath & "\file1.dat"

This looks funny

[si_the_geek]

I presume that the function getDesktopPath returns a string ending with a Chr(0) character (as many API calls do), which marks the end of a string for most controls etc - in which case it is not a bug at all, just 'bad' code.

If you show us the code for getDesktopPath, we can help you correct it.

[winterslam]

Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long


Public Function getDesktopPath() As String
    Dim sPath As String
    sPath = Space$(255)
    SHGetSpecialFolderPath hwnd, sPath, 0, 0
    getDesktopPath = sPath
End Function

[Negative0]

As SI said, the API returns a null terminated string, so you need to get rid of the null character:

getDesktopPath = Trim$(Replace(sPath, Chr(0), ""))

The reason I added the trim is because the string will be 255 characters long after we remove the null.