Option Explicit 
 
Private Declare Function NetShareAdd Lib "Netapi32.dll" (ByVal servername As _
  String, ByVal level As Long, buf As Any, ByVal parm_err As Long) As Long 
 
Private Type SHARE_INFO_2 
    shi2_netname As String 
    shi2_type As Long 
    shi2_remark As String 
    shi2_permissions As Long 
    shi2_max_uses As Long 
    shi2_current_uses As Long 
    shi2_path As String 
    shi2_passwd As String 
End Type 
 
Private Const STYPE_DISKTREE As Long = 0 
 
Private Const NERR_Success As Long = 0 
 
Private Const ACCESS_NONE As Long = 0 
Private Const ACCESS_READ As Long = &H1 
Private Const ACCESS_WRITE As Long = &H2 
Private Const ACCESS_CREATE As Long = &H4 
Private Const ACCESS_EXEC As Long = &H8 
Private Const ACCESS_DELETE As Long = &H10 
Private Const ACCESS_ATRIB As Long = &H20 
Private Const ACCESS_PERM As Long = &H40 
Private Const ACCESS_GROUP As Long = &H8000 
 
Private Const ACCESS_ALL As Long = (ACCESS_READ Or _ 
                                ACCESS_WRITE Or _ 
                                ACCESS_CREATE Or _ 
                                ACCESS_EXEC Or _ 
                                ACCESS_DELETE Or _ 
                                ACCESS_ATRIB Or _ 
                                ACCESS_PERM) 
 
Private Const ERROR_ACCESS_DENIED = 5& 
Private Const ERROR_INVALID_LEVEL = 124& 
Private Const ERROR_INVALID_NAME = 123& 
Private Const ERROR_INVALID_PARAMETER = 87 ' dderror 
 
Private Const NERR_BASE As Long = 2100 
Private Const NERR_UnknownDevDir As Long = (NERR_BASE + 16) '/* The device or 
' directory does not exist. */ 
Private Const NERR_RedirectedPath As Long = (NERR_BASE + 17) '/* The operation 
' is invalid on a redirected resource. */ 
Private Const NERR_DuplicateShare As Long = (NERR_BASE + 18) '/* The name has 
' already been shared. */ 
 
Private Sub ShareFolder() 
 
Dim u As Long 
Dim s As SHARE_INFO_2 
Dim e As Long 
 
Dim servername As String 
Dim sharename As String 
Dim sharepath As String 
Dim shareremark As String 
 
servername = vbNullString 
sharename = StrConv("a new share", vbUnicode) 
shareremark = StrConv("My shared resource created a while ago!", vbUnicode) 
sharepath = StrConv("c:\", vbUnicode) 
 
With s 
    .shi2_netname = sharename 
    .shi2_remark = shareremark 
    .shi2_permissions = ACCESS_READ 
    .shi2_max_uses = 2 
    .shi2_current_uses = 0 
    .shi2_path = sharepath 
    .shi2_type = STYPE_DISKTREE 
End With 
 
u = NetShareAdd(servername, 2, s, 0) 
 
If u = NERR_Success Then 
    MsgBox "share created" 
Else 
    MsgBox "Failed. ret value: " & u 
End If 
 
End Sub