Tech Articles


Calling SHGetKnownFolderPath from PowerBuilder


Up through Windows XP, if you wanted to get the physical location of certain defined folders (e.g. the users Documents folder), you would use the SHGetFolderPath function in the Windows API.  Roland Smith has examples of using that on his Topwiz Software site.  That function continues to work in later versions of Windows, although it's basically a wrapper for the SHGetKnownFolderPath function.

SHGetFolderPath uses CSIDL values, whereas SHGetKnownFolderPath uses KnownFolderID GUIDs.  One difference is that there are a lot more KnownFolderIDs than there are CSIDLs.  That means some of the defined folder locations you may want to get the physical location for can't be accessed through the older SHGetFolderPath method.  And that's exactly the situation I ran into.


I needed to find the user's Downloads folder, and there isn't a CSIDL value for that.  So, I needed to see how to call the SHGetKnownFolderPath function from PowerBuilder.  As with many OLE and Windows API calls, it can save you a lot of time if you can find some Visual Basic code that does what you need to do, and you can convert the syntax.  And fortunately, I found some that did this.



So, with a little tweaking, I ended up with this:

//Local External Functions:

 Function Long CLSIDFromString (ref string lpszGuid, ref blob pGuid ) Library "ole32"   
 Function Long SHGetKnownFolderPath( ref blob nFolder,int dwFlags,uLong hToken , ref long pszPath) LIBRARY "Shell32.dll"   
 Subroutine CopyMemory ( ref String pDest, long pSrc, long ByteLen) Library "kernel32" Alias For "RtlMoveMemory"   
 Subroutine CoTaskMemFree ( long hMem) Library "ole32"   
 Function Long lstrlenW ( long ptr) Library "kernel32"   

//PowerScript

 blob     guid  
 long     ll_rc, ll_folderpointer, ll_folderlen  
 string ls_folder, ls_folder_id  
 ls_folder_id = '{374DE290-123F-4565-9164-39C4925E467B}'  
 IF CLSIDFromString (ls_folder_id, guid ) = 0 THEN  
      IF SHGetKnownFolderPath ( guid, 0, 0, ll_folderpointer ) = 0 THEN  
           IF ll_folderpointer <>0 THEN  
                ll_folderlen = lstrlenW ( ll_folderpointer )  
                If ll_folderlen <> 0 THEN  
                     ls_folder = Space ( ll_folderlen )                      
                     CopyMemory ( ls_folder, ll_folderpointer, ll_folderlen * 2 )  
                END IF  
           END IF  
           CoTaskMemFree ( ll_folderpointer )  
      END IF  
 END IF  
 MessageBox ( "Downloads Folder", ls_folder )  


Hope you find that useful as well.

 

 

 

 

 

 

Comments (0)
There are no comments posted here yet

Find Articles by Tag

RESTClient Debugger License SOAP TreeView Mobile CoderObject HTTPClient PowerBuilder Filter Charts iOS Database Table Data Menu Authentication PostgreSQL CrypterObject Model JSONParser Expression BLOB Sort SQL Transaction OAuth 2.0 File PFC Stored Procedure TFS JSONGenerator OLE Testing Deployment Script COM Elevate Conference SqlExecutor C# IDE Excel SQL Server WinAPI Export Bug SnapDevelop DataWindow JSON Syntax XML TortoiseGit SVN Linux OS RibbonBar Authorization RibbonBar Builder SqlModelMapper DataWindow PDF Error Array Trial Repository Windows OS Oracle Design Messagging Resize REST Outlook .NET Std Framework Interface OrcaScript Android Event Handling Event Web Service Proxy UI WebBrowser Database Profile OAuth Database Azure Import JSON PowerScript (PS) DevOps Database Table UI Themes PDFlib Window DLL PBDOM NativePDF Database Table Schema Automated Testing Platform Database Connection Source Control Class InfoMaker CI/CD ActiveX DragDrop Export JSON PowerServer Web Import RichTextEdit Control PowerBuilder Compiler JSON Icon Configuration Windows 10 Icons 32-bit Installation Validation Debug .NET DataStore MessageBox DataType UI Modernization Jenkins Branch & Merge Web API Debugging ODBC Event Handler External Functions Migration Graph SnapObjects Application Open Source .NET Assembly Source Code API Text Performance 64-bit PowerServer Mobile Data Encryption Git Encoding Database Object PowerBuilder (Appeon) TLS/SSL Variable Database Painter PostgreSQL ODBC driver GhostScript SDK Service