Determine whether a folder is shared [ All Languages » VB »  Windows] Total Hit ( 3233) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

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. Click here to copy the following block Type SHFILEINFO   hIcon As Long   iIcon As Long   dwAttributes As Long   szDisplayName As String * MAX_PATH   szTypeName As String * 80 End Type Public Const SHGFI_ATTRIBUTES = &H800 Public Const SFGAO_SHARE = &H20000 Public 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 Long Once 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. Click here to copy the following block Function IsFolderShared(ByVal folderName As String) As Boolean   Dim sfi As SHFILEINFO   SHGetFileInfo foldernName, 0, sfi, Len(sfi), SHGFI_ATTRIBUTES   IsFolderShared = (sfi.dwAttributes And SFGAO_SHARE) End Function

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )