Hello,

I wish to create a sharing of a repertory in code VB (NT).
I think that it is with api NetshareAdd, how used in VB.

Thanks

Roy Strickland posted code in this newsgroup for this yesterday in response
to a similar question.  Search for the thread titled 'How can
programmatically share a drive?'
-Paul
--
Paul Little, Senior Programmer/Analyst
SVi Retail Systems
San Diego, CA

Option Explicit

Declare Function NetShareAdd Lib "netapi32.dll" (ByVal _
    servername As String, ByVal Level As Long, LPBYTE As Any, _
    lpParm_Err As Long) As Long

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

Public Const STYPE_DISKTREE = 0
Public Const SHI_USES_UNLIMITED = -1&
Public Const ACCESS_READ = &H1

Public Function ShareAdd(ByVal sServerName As String, ByVal _
    sShareName As String, ByVal sPathName As String, Optional _
    ByVal sComment As Variant, Optional ByVal iMaxUses As Variant) _
    As Long

    Dim ShareInfo As SHARE_INFO_2, iParamError As Long
    If IsMissing(sComment) Then sComment = vbNullString

    If IsMissing(iMaxUses) Then iMaxUses = SHI_USES_UNLIMITED

    ShareInfo.ShI2_NetName = StrConv(sShareName, vbUnicode)
    ShareInfo.ShI2_Type = STYPE_DISKTREE
    ShareInfo.ShI2_Remark = StrConv(sComment, vbUnicode)

    ShareInfo.ShI2_Permissions = ACCESS_READ
    ShareInfo.ShI2_Max_Uses = iMaxUses
    ShareInfo.ShI2_Current_Uses = 0
    ShareInfo.ShI2_Path = StrConv(sPathName, vbUnicode)

    ShareInfo.ShI2_Passwd = StrConv(vbNullString, vbUnicode)
    ShareAdd = NetShareAdd(StrConv(sServerName, vbUnicode), _
       2, ShareInfo, iParamError)
End Function