'// API:
Public Declare Function NetShareAdd9x Lib "svrapi.dll" Alias "NetShareAdd" ( _
                                               ByVal servername As Integer, _
                                               ByVal slevel As Integer, _
                                               ByRef buf As SHARE_INFO_50, _
                                               ByVal cbbuf As Integer) As _
                                               Integer
'// ...
'// Structure füllen:
  With si50
            .shi50_netname = dwNetname + ControlChars.NullChar
            .shi50_path = dwPath + ControlChars.NullChar
            .shi50_remark = dwRemark + ControlChars.NullChar
            .shi50_type = STYPE_DISKTREE
            .shi50_ro_password = String.Empty + ControlChars.NullChar
            .shi50_rw_password = String.Empty + ControlChars.NullChar
            .shi50_flags = ACCESS_ALL
   End With
'// 
'// Aufruf der API:
Return NetShareAdd9x(0, 50, si50, parmerr)