GetFolderName working only in one computer

[backup69]

i use following code and have problem run this in other two test computers

Private Type BrowseInfo ' used by the function GetFolderName
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
    Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" _
    Alias "SHBrowseForFolderA" (lpBrowseInfo As BrowseInfo) As Long

Function GetFolderName(Msg As String) As String
' returns the name of the folder selected by the user
Dim bInfo As BrowseInfo, path As String, r As Long
Dim x As Long, pos As Integer
    bInfo.pidlRoot = 0& ' Root folder = Desktop
    If IsMissing(Msg) Then
        bInfo.lpszTitle = "Select a folder."
        ' the dialog title
    Else
        bInfo.lpszTitle = Msg ' the dialog title
    End If
    bInfo.ulFlags = &H1 ' Type of directory to return
    x = SHBrowseForFolder(bInfo) ' display the dialog
    ' Parse the result
    path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal path)
    If r Then
        pos = InStr(path, Chr$(0))
        GetFolderName = Left(path, pos - 1)
    Else
        GetFolderName = ""
    End If
End Function

and error (can't find object or library) on line:
path = Space$(512)

I not remember what special i installed to my computer.

 

[xenou]

There's various browse for folder routines easily found on the web. How about trying a different one (starting perhaps with the example Richard posted in this thread).

 

[Richard Schollar]

Try preceding the instance of Left with the library from which it comes:

VBA.Left$(strFileName, 1)

Incidentally, if this does work, it points to a problem with your library references. Have you had any other problems on these computers on which your routine fails?

 

[backup69]

To:xenou
Yes i thank him and got his example to work. But her is a some global problem and because of that all other solutions not working, even simple commands.
I understand this problem is solved but not the right way. Avoiding some commands in the project will not bring me closer to truth.

 

[backup69]

Try preceding the instance of Left with the library from which it comes:

VBA.Left$(strFileName, 1)

Incidentally, if this does work, it points to a problem with your library references. Have you had any other problems on these computers on which your routine fails?

Yes this is working solution even for the String$(MAX_PATH, vbNullChar).
Can you explain why other two computers need prefix VBA.?

 

[xenou]

I think I've seen cases where an addin is interfering - perhaps some library that has defined its own functions such as Left/Right/Mid.