Originariamente inviato da MdE2005
Ecco..mi sembrava un argomento già trattato e anche personalmente..
forse se lo cercavo lo trovavo..

Cmq ciao
allora a parte il fatto che io non riesco a farlo girare questo codice


' >>>>> 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

tu mi suggerivi
code:
Public Const MAX_PATH = 260sopra la dichiarazione del Type..
Per poi usarla devi fare così:

code:
Msgbox IsFolderShared("percorsocartella")

ma, sono proprio scarso, io non riesco a farlo girare, poi come mi suggerivi tu, ammesso che mi trovi il percorso si fermerà al primo percorso?