发信人: winsy(鹰派)
整理人: winsy(2003-01-20 08:32:33), 站内信件
|
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） |
|