用VB实现共享某个文件夹？

Question

请问如何用VB实现共享某个文件夹？-既把某个指定的文件夹的属性设为共享？
急求！先谢谢各位啦！

Answer 1

我也很想知道的啊
发到我邮箱里谢谢
[email protected]
than you very muck

Answer 2

shell()函数运行命令net share
only win2k

Answer 3

'用命令行参数传入要共享的目录及共享的名字
Option Explicit
Private Const NERR_SUCCESS As Long = 0&
Private Const STYPE_ALL       As Long = -1  'note: my const
Private Const STYPE_DISKTREE  As Long = 0
Private Const STYPE_PRINTQ    As Long = 1
Private Const STYPE_DEVICE    As Long = 2
Private Const STYPE_IPC       As Long = 3
Private Const STYPE_SPECIAL   As Long = &H80000000
'permissions
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_ALL      As Long = ACCESS_READ Or _
                                        ACCESS_WRITE Or _
                                        ACCESS_CREATE Or _
                                        ACCESS_EXEC Or _
                                        ACCESS_DELETE Or _
                                        ACCESS_ATRIB Or _
                                        ACCESS_PERM
Public Type SHARE_INFO_2
  shi2_netname       As Long
  shi2_type          As Long
  shi2_re        As Long
  shi2_permissions   As Long
  shi2_max_uses      As Long
  shi2_current_uses  As Long
  shi2_path          As Long
  shi2_passwd        As Long
End Type
Public Declare Function NetShareAdd Lib "netapi32" _
  (ByVal servername As Long, _
   ByVal level As Long, _
   buf As Any, _
   parmerr As Long) As LongPublic Function ShareAdd(sServer As String, _
                          sSharePath As String, _
                          sShareName As String, _
                          sShareRe As String, _
                          sSharePw As String) As Long
   Dim dwServer   As Long
   Dim dwNetname  As Long
   Dim dwPath     As Long
   Dim dwRe   As Long
   Dim dwPw       As Long
   Dim parmerr    As Long
   Dim si2        As SHARE_INFO_2
   dwServer = StrPtr(sServer)
   dwNetname = StrPtr(sShareName)
   dwPath = StrPtr(sSharePath)
   If Len(sShareRe) > 0 Then
      dwRe = StrPtr(sShareRe)
   End If
   If Len(sSharePw) > 0 Then
      dwPw = StrPtr(sSharePw)
   End If
   With si2
      .shi2_netname = dwNetname
      .shi2_path = dwPath
      .shi2_re = dwRe
      .shi2_type = STYPE_DISKTREE
      .shi2_permissions = &H1 'ACCESS_READ
      .shi2_max_uses = -1
      .shi2_passwd = dwPw
   End With
   ShareAdd = NetShareAdd(dwServer, 2, si2, parmerr)
End Function
Sub Main()
On Error Resume Next
Dim fpath As String
Dim sharename As String
Dim CS As String
Dim CommandString() As String
If Trim(Command) <> "" Then
    CS = Replace(Command, Space(2), Space(1))
    CommandString = Split(CS, Space(1))
    fpath = CommandString(0) '共享文件夹
    sharename = CommandString(1) '共享名
    ShareAdd "", fpath, sharename, "", ""
End If
End
End Sub