Esiste un modo per determinare se una cartella è condivisa in rete?
ho trovato questo code però non ci capisco una mazza!!
''''
''''
Semplice esempio su come si può determinare se una cartella è condivisa o meno. Utilizzo dell'API SHGetFileInfo()
' >>>>> Declarations <<<<<<
Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes asLong
szDisplayName As String*MAX_PATH
End Type
Public Declare Function SHGetFileInfo Lib "Shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, _
ByVal dwFileAttributes As Long, psfi asSHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
' >>>>> Procedure/Code <<<<<<
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 Function