请问如何通过程序共享一个文件夹？？？

我想通过一段代码共享一个已知的文件夹，谢谢！

解决方案 »

  1.   

    ' 假设要共享c:\123，共享名为nameOption ExplicitPrivate Sub Command1_Click()
    Shell "net share name=c:\123", vbHide
    End Sub
      

  2.   

    如果是在2000以上的操作系统完全可以shell控制台命令 NetNet share管理共享资源。使用不带参数的 net share 显示本地计算机上所有共享资源的信息。 语法 
    net share [ShareName] net share [ShareName=Drive:Path [{/users:Number | /unlimited}] [/re:"Text"] [/cache: {manual | automatic | no}]]net share [ShareName [{/users:Number | unlimited}] [/re:"Text"] [/cache: {manual | automatic | no}]] net share [{ShareName | Drive:Path} /delete] 参数 
    ShareName 
    指定共享资源的网络名称。键入带参数 ShareName 的 net share 命令仅显示有关该共享的信息。 
    drive:path 
    指定要共享目录的绝对路径。 
    /users:Number 
    设置可以同时访问共享资源的最多用户数。 
    /unlimited 
    指定可以同时访问共享资源的、数量不受限制的用户。 
    /re:"Text" 
    添加关于资源的描述性注释。给文本加上引号。 
    /cache:manual 
    启用带手动重新集成的脱机客户端缓存。 
    /cache:automatic 
    启用带自动重新集成的脱机客户端缓存。 
    /cache:no 
    禁用缓存。 
    /delete 
    停止共享资源。 
    net help Command 
    显示指定 net 命令的帮助。 
    注释 
    要共享带有包含空格字符路径的目录，请使用引号将目录的驱动器和路径引起来（如 "C:\Path Name"）。 
    当显示计算机上的所有共享资源时，将显示每个资源的共享名、与资源相关的设备名或路径，以及与资源有关的描述性注释。输出内容与以下相似： 共享名     资源                         注释 
    ------------------------------------------------------ 
    ADMIN$     C:\WINNT                     远程管理 
    C$        C:\                          默认共享 
    print$     C:\WINNT\SYSTEM\SPOOL 
    IPC$                                    远程 IPC 
    LASER      LPT1                  后台   激光打印机 在服务器上创建共享时，这些共享将被保存。停止服务器服务时，所有共享都将断开，不过当计算机重新启动时它们将自动重新连接。有关服务的详细信息，请参阅“相关主题”。 
    当从远程计算机浏览本地计算机时，将不显示以字符 $ 结尾的共享资源名。详细信息，请参阅“相关主题”。 
    示例 
    要显示有关本地计算机上共享资源的信息，请键入： net share 要使用共享名 DataShare 共享计算机的 C:\Data 目录并包括注释，请键入： net share DataShare=c:\Data /re:"For department 123." 要停止上例中创建的 DataShare 文件夹共享，请键入： net share DataShare /delete 要使用共享名 List 共享计算机的 C:\Art Lst 目录，请键入： net share list="c:\art lst" 格式化图例 
    格式 含义 
    斜体 用户必须提供的信息 
    粗体 用户必须准确键入的要显示的元素 
    省略号 (...) 在命令行中可多次重复的参数 
    中括号 ([]) 可选项 
    大括号 ({})；选项用竖线 (|) 分隔。例如：{even|odd} 用户必须从选项集合中选择一个 
    Courier 字体 
      

  3.   

    或者用api函数NetShareAdd：
    参考：
    How to Share a Folder using NetShareAdd
    http://www.mvps.org/vbnet/index.html?code/network/netshareadd.htm
      

  4.   

    win98下的例子：
    http://pages.infinit.net/jeenux/ShareWin98.zip
      

  5.   

    我想给rainstormmaster50分，可是一共就50分，太谢谢了！