Option Strict On
Public Class SharesWin9x
    Private Const NERR_SUCCESS As Integer = 0&
    'share types
    Private Const STYPE_ALL As Integer = -1        'note: my const
    Private Const STYPE_DISKTREE As Integer = 0
    Private Const STYPE_PRINTQ As Integer = 1
    Private Const STYPE_DEVICE As Integer = 2
    Private Const STYPE_IPC As Integer = 3
    Private Const STYPE_SPECIAL As Integer = &H80000000
    'permissions
    Private Const ACCESS_READ As Integer = &H1
    Private Const ACCESS_WRITE As Integer = &H2
    Private Const ACCESS_CREATE As Integer = &H4
    Private Const ACCESS_EXEC As Integer = &H8
    Private Const ACCESS_DELETE As Integer = &H10
    Private Const ACCESS_ATRIB As Integer = &H20
    Private Const ACCESS_PERM As Integer = &H40
    Private Const ACCESS_ALL As Integer = ACCESS_READ Or ACCESS_WRITE Or _
      ACCESS_CREATE Or ACCESS_EXEC Or _
                                          ACCESS_DELETE Or ACCESS_ATRIB Or _
                                          ACCESS_PERM
 
    Public Declare Function NetShareAdd9x Lib "svrapi.dll" Alias "NetShareAdd" ( _
                                               ByVal servername As Object, _
                                               ByVal slevel As Integer, _
                                               ByRef buf As SHARE_INFO_50, _
                                               ByVal cbbuf As Integer) As _
                                               Integer
 
    Structure SHARE_INFO_50
        Dim shi50_netname As String
        Dim shi50_type As Integer
        Dim shi50_flags As Integer
        Dim shi50_remark As String
        Dim shi50_path As String
        Dim shi50_rw_password As String
        Dim shi50_ro_password As String
    End Structure
 
    Public Shared Function ShareAdd(ByVal sServer As String, ByVal sSharePath _
      As String, _
                            ByVal sShareName As String, ByVal sShareRemark As _
                            String, _
                            ByVal sSharePw As String) As Integer
 
        Dim dwServer As String
        Dim dwNetname As String
        Dim dwPath As String
        Dim dwRemark As String
        Dim dwPw As String
        Dim parmerr As Integer
        Dim si50 As SHARE_INFO_50
 
        'obtain pointers to the server, share and path
        dwServer = sServer
        dwNetname = sShareName
        dwPath = sSharePath
 
        'if the remark or password specified,
        'obtain pointer to those as well
        If sShareRemark.Length > 0 Then dwRemark = sShareRemark
        If sSharePw.Length > 0 Then dwPw = sSharePw
 
        'prepare the SHARE_INFO_2 structure
        With si50
            .shi50_netname = dwNetname
            .shi50_path = dwPath
            .shi50_remark = dwRemark
            .shi50_type = STYPE_DISKTREE
            .shi50_ro_password = String.Empty
            .shi50_rw_password = String.Empty
            .shi50_flags = ACCESS_ALL
            '//.shi50_permissions = ACCESS_ALL
            '//.shi50_max_uses = -1
            '//.shi50_passwd = dwPw
        End With
        'add the share
        '//Return NetShareAdd9x(dwServer, 2, si50, parmerr)
 
        Return NetShareAdd9x(dwServer, 50, si50, parmerr)
        '// oder:
        Return NetShareAdd9x(0, 50, si50, parmerr) '// Müsstest du einmal testen
    End Function
End Class