双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何用代码设置共享文件夹，在线等待，急！！

2002-12-28 05:42:35 193 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

smile_ni 墨衍会员 · AI 创作全网分发关注 + 加入社区

打印机脱机故障排查全攻略：从物理连接到网络共享权限打印机脱机是常见的办公设备故障，其本质是计算机与打印设备之间的通信链路或状态管理出现了问题。从技术原理上看，这通常涉及硬件连接、操作系统服务（如Windows打印后台处理服务）以及网络共享协议等多个层面。理解这些基础概念对于高效排查至关重要。在工程实践中，物理连接检查、系统服务重启和网络权限配置是三大核心解决路径。特别是在网络共享场景下，涉及网络发现、用户凭证管理和防火墙策略，常伴随“提供的凭证不足”等典型错误。本文聚焦打印机脱机这一高频痛点，系统梳理了从基础物理层到复杂网络层的完整诊断链路，旨在帮助用户建阅读详情

在WIN2000下，将D:\TEST文件夹设置为用户“YYPPCC”只读权限？？？
注：程序中，要用代码实现，将权限给指定的用户

...全文

MATLAB File Exchange新功能如何革新机器人工具箱代码共享与协作在机器人算法开发领域，代码复用与协作是提升研发效率的关键。依赖管理是其中的核心挑战，它直接关系到算法能否在不同环境中被正确复现。MATLAB File Exchange平台通过引入项目化管理和明确的依赖声明机制，从根本上解决了“依赖地狱”问题，允许开发者精确指定所需工具箱及其版本。结合MATLAB Online集成与实时脚本（Live Script）展示功能，用户无需本地安装即可在线验证算法，极大降低了试用门槛。这些增强特性共同构建了一个更活跃、高效的社区生态，特别适用于机器人运动学、动力学仿真及轨迹规划等阅读详情

smile_ni

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

smile_ni 2002-12-29

打赏
举报

请看清要求再回答，非常感谢！！

cngxylyh 2002-12-28

打赏
举报

改注册表
设置HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ Network\LanMan\C$\Flags"值为"00000258"("REG_DWORD")
设置HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ Network\LanMan\C$\Type"值为0("REG_DWORD")
设置HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ Network\LanMan\C$\Path"值为"C:\" ，使C:共享完全控制

smile_ni 2002-12-28

打赏
举报

有没有人知道？？？？

yinxiaodan 2002-12-28

打赏
举报

呵呵，不错啊

ityaa 2002-12-28

打赏
举报

另一种方法不知道行不行，共享文件夹在注册表中保存为相关数据，只要依照注册表的数据来建一个相似的就可以。

smile_ni 2002-12-28

打赏
举报

netshareadd不能实现

用户　昵称 2002-12-28

打赏
举报

netshareadd

feixuehenshui 2002-12-28

打赏
举报

不错！

smile_ni 2002-12-28

打赏
举报

如何设置用户的权限？？

shawls 2002-12-28

打赏
举报

[名称] 创建共享目录

[数据来源] 未知

[内容简介] 空

[源代码内容]

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
Private Type SHARE_INFO_2
shi2_netname As Long
shi2_type As Long
shi2_remark 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
Private Declare Function NetShareAdd Lib "netapi32" _
(ByVal servername As Long, _
ByVal level As Long, _
buf As Any, _
parmerr As Long) As Long
Private Declare Function NetShareDelete Lib "netapi32()" (ByVal servername As Long, _
ByVal level As Long, _
buf As Any, _
parmerr As Long) As Long

Private Function ShareAdd(sServer As String, _
sSharePath As String, _
sShareName As String, _
sShareRemark As String, _
sSharePw As String) As Long
Dim dwServer As Long
Dim dwNetname As Long
Dim dwPath As Long
Dim dwRemark 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(sShareRemark) > 0 Then
dwRemark = StrPtr(sShareRemark)
End If
If Len(sSharePw) > 0 Then
dwPw = StrPtr(sSharePw)
End If
With si2
.shi2_netname = dwNetname
.shi2_path = dwPath
.shi2_remark = dwRemark
.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

Private Sub Command1_Click()
Dim fpath As String
Dim sharename As String
fpath = "e:\"
sharename = "1234"

ShareAdd "", fpath, sharename, "", ""
End Sub

以上代码保存于： SourceCode Explorer(源代码数据库)
复制时间： 2002-12-28 17:45:52
软件版本： 1.0.805
软件作者： Shawls
个人主页： Http://Shawls.Yeah.Net
E-Mail： ShawFile@163.Net
QQ： 9181729

shawls 2002-12-28

打赏
举报

[名称] 建立磁盘/目录的資源分享/共享

[语言种类] Visual Basic

[类别一] VBAPI

[类别二] 网络通信

[类别三] 系统操控

[数据来源] www.vbguide.com.tw

[保存时间] 2002-06-18

[关键字一] 资源共享

[关键字二] 磁盘/目录

[关键字三] 空

[内容简介]
如何判断共享文件夹的存在，并且把共享文件夹设置为不共享！
1要求得知共享文件夹的真正路径和文件名，以及虚拟文件名。
2如何不需要重起机器，就可以把共享文件夹设置为不共享！

[源代码内容]

在【檔案總管】或【我的電腦】中，我們都可以直接在磁碟機或目錄上按滑鼠右鍵，選【內容】，在【資源分享】頁中設定磁碟機或目錄的資源分享，如圖：

　90.09.15 加註：
　此範例只適用於 Win95／98／Me！

我在集團的資訊部門工作，要處理一二十家以上的公司系統，在正常的狀況下，為了方便，我們在機器交給使用者使用時，會替他們將某個磁碟機或某個目錄設定可以資源分享，但是並不是每個使用者都喜歡開放自己的電腦讓別人存取，於是他們便會將資源分享的功能取消，造成資訊人員些許不方便。

這時候，也不必和使用者爭得臉紅脖子粗的，反正山不轉路轉，我們就不知不覺地，讓使用者自己在莫名其妙的情形下，按照您的意思，在某個磁碟機或某個目錄設定您想要設定的資源分享，然後又神不知鬼不覺地取消資源分享！

要怎麼做呢？其實很簡單，就是將設定/取消資源分享的功能寫在 VB 程式中，像人事差勤系統是每個使用者都要使用的系統，我們就在這些系統的 VB 程式中，去設定/取消資源分享！而且使用者完全沒有感覺！

下面這個模組檔案中 (.bas檔) 已經有完整的宣告及完成的二個模組，只要呼叫這二個模組，就可以建立/取消磁碟機或目錄的資料分享：

Source Code 下載

這二個模組說明如下：

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
註：就像一般教人家做壞事的書或電視節目一樣，我也要聲明一下：
註：以上方式請用於正途 (系統需要)，請勿使用以上方法來不當竊取不該看的檔案！

以上代码保存于： SourceCode Explorer(源代码数据库)
复制时间： 2002-12-28 17:45:27
软件版本： 1.0.805
软件作者： Shawls
个人主页： Http://Shawls.Yeah.Net
E-Mail： ShawFile@163.Net
QQ： 9181729

✦双11狂欢大促✦

如何用代码设置共享文件夹，在线等待，急！！

相关推荐

双11狂欢大促