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