vb 服务器共享文件夹代码,[转载]用VB代码设定/取消文件夹的共享

Public  Function  CreateShare  _                                  '  建立資源分享模組

(ByVal  sSharePath  As  String,  _                                '  完整路徑

ByVal  sShareName  As  String,  _                              '  資源分享名稱

ByVal  sRemark  As  String,  _                                          '  說明

ByVal  sROPass  As  String,  _                                          '  唯讀密碼

ByVal  sRWPass  As  String)  As  Long                '  完整存取密碼

Public  Function  DeleteShare  _                                  '  取消資源分享模組

(ByVal  sShareName  As  String)  As  Long    '  資源分享名稱

呼叫範例如下：

Private  Sub  Command1_Click()

'  建立資源分享  CDISK

CreateShare    "C:\  ",    "CDISK  ",    "小紀的  C  磁碟機  ",    "JWHR  ",    "JWHRW  "

End  Sub

Private  Sub  Command2_Click()

'  取消資源分享  CDISK

DeleteShare    "CDISK  "

End  Sub

註：就像一般教人家做壞事的書或電視節目一樣，我也要聲明一下：

註：以上方式請用於正途  (系統需要)，請勿使用以上方法來不當竊取不該看的檔案！

(转自CSDN)