' If SHGetPathFromIDList(, Path2MyDocuments) Then ' If SHGetSpecialFolderLocation(0, 5, IIDL) = S_OK Then Here is a replacement for SHGetPathFromIDList: Private Function Path2MyDocuments() As String Would someone please help, so that I might resolve this?īoth function are not compatible with 64-bit, especially SHGetPathFromIDList can crash you application, even if you change the declaration to 64-bit!!! Declare Function SHGetPathFromIDList Lib "shell32.dll" _Īlias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Longĭeclare Function SHBrowseForFolder Lib "shell32.dll" _Īlias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long I did download the file referenced in here, but because mine is a function, and not a basic macro, I'm not clear on what to change. I did some looking into this, and found a few articles, but none match what mine is based on- or perhaps I should say that I'm not seeing it. I got the error which says I need to change it to work on the new machine. Yes, I've been running an older machine for several years now, but my office machine is 64 bit. I've brought in an older set of vba code, with my personal.xlsb file to a 64 bit machine.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |