Option Explicit

Private 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

Private Const MAX_PATH As Long = 260

Private Const SHGFI_ATTRIBUTES      As Long = &H800

Private Const DROPEFFECT_COPY As Long = 1
Private Const DROPEFFECT_LINK As Long = 4
Private Const DROPEFFECT_MOVE As Long = 2

'http://msdn.microsoft.com/en-us/library/bb762589%28VS.85%29.aspx
Private Const SFGAO_LINK As Long = &H10000
Private Const SFGAO_BROWSABLE As Long = &H8000000
Private Const SFGAO_CANCOPY As Long = DROPEFFECT_COPY
Private Const SFGAO_CANDELETE As Long = &H20&
Private Const SFGAO_CANLINK As Long = DROPEFFECT_LINK
Private Const SFGAO_CANMONIKER As Long = &H400000
Private Const SFGAO_CANMOVE As Long = DROPEFFECT_MOVE
Private Const SFGAO_CANRENAME As Long = &H10&
Private Const SFGAO_CAPABILITYMASK As Long = &H177&
Private Const SFGAO_COMPRESSED As Long = &H4000000
Private Const SFGAO_CONTENTSMASK As Long = &H80000000
Private Const SFGAO_DISPLAYATTRMASK As Long = &HF0000
Private Const SFGAO_DROPTARGET As Long = &H100&
Private Const SFGAO_FILESYSANCESTOR As Long = &H10000000
Private Const SFGAO_FILESYSTEM As Long = &H40000000
Private Const SFGAO_FOLDER As Long = &H20000000
Private Const SFGAO_GHOSTED As Long = &H80000
Private Const SFGAO_HASPROPSHEET As Long = &H40&
Private Const SFGAO_HASSTORAGE As Long = &H400000
Private Const SFGAO_HASSUBFOLDER As Long = &H80000000
Private Const SFGAO_HIDDEN As Long = &H80000
Private Const SFGAO_ISSLOW As Long = &H4000&
Private Const SFGAO_NEWCONTENT As Long = &H200000
Private Const SFGAO_NONENUMERATED As Long = &H100000
Private Const SFGAO_READONLY As Long = &H40000
Private Const SFGAO_REMOVABLE As Long = &H2000000
Private Const SFGAO_SHARE As Long = &H20000
Private Const SFGAO_STORAGEANCESTOR As Long = &H10000000
Private Const SFGAO_VALIDATE As Long = &H1000000

Private Type SHFILEINFO
    hIcon               As Long
    iIcon               As Long
    dwAttributes        As Long
    szDisplayName       As String * MAX_PATH
    szTypeName          As String * 80
End Type

Public Function GetAttributes(ByVal sPath As String) As Long
    Dim tSHFI As SHFILEINFO
    Call SHGetFileInfo(ByVal sPath, 0, tSHFI, Len(tSHFI), SHGFI_ATTRIBUTES)
    GetAttributes = tSHFI.dwAttributes
End Function

Private Sub Form_Load()
    Dim sPath As String
    Dim hAttr As Long
    
    sPath = "C:\Documents and Settings\All Users\Documentos"
    
    hAttr = GetAttributes(sPath)
    
    If (hAttr And SFGAO_READONLY) = SFGAO_READONLY Then MsgBox "Solo de lectura"
    If (hAttr And SFGAO_CANRENAME) = SFGAO_CANRENAME Then MsgBox "puede renombrarse"
    If (hAttr And SFGAO_HASSUBFOLDER) = SFGAO_HASSUBFOLDER Then MsgBox "tiene subcarpetas"
    If (hAttr And SFGAO_SHARE) = SFGAO_SHARE Then MsgBox "es una carpeta compartida"
End Sub

closesocket sock