The Windows shell provides a simple way to detect whether a given folder is shared or not. You must call the SHGetFileInfo() API function and analyze the way it fills out a given structure.
Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePublic Const SHGFI_ATTRIBUTES = &H800Public Const SFGAO_SHARE = &H20000Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _ ( ByVal pszPath As String, ByVal dwFileAttributes As Long, _ psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As LongOnce you’ve called the function, check out the value of the dwAttributes field in the SHFILEINFO structure you passed in. If you AND that value with SFGAO_SHARE and obtain a nonzero value then the folder is shared.
Function IsFolderShared(ByVal folderName As String) As Boolean Dim sfi As SHFILEINFO SHGetFileInfo folderName, 0, sfi, Len(sfi), SHGFI_ATTRIBUTES IsFolderShared = (sfi.dwAttributes And SFGAO_SHARE)End FunctionThis tip is taken from the book VisualC++ Windows Shell Programming by Dino Esposito.
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
