Office中国论坛/Access中国论坛

标题: 如何指定文件夹共享 [打印本页]

作者: pyh512 时间: 2016-6-24 08:45
标题: 如何指定文件夹共享
本帖最后由 pyh512 于 2016-6-24 17:27 编辑

突然有个奇怪想法，想在编辑窗体中设置个命令按钮，在单击事件中通过VBA判断指定的文件夹是否开启共享功能，如果没有则开启该文件夹共同功能。

作者: todaynew 时间: 2016-6-24 12:09
dim fso as new filesystemobject
dim f as folder
set f=fso.getfolder("阁下的文件夹地址")
msgbox f.attributes

至于共享的属性值是多少，你自己测试一下。

作者: pyh512 时间: 2016-6-24 17:18
出现这样错误，是引用引起的吗？

作者: pyh512 时间: 2016-6-24 17:24
提示16是怎么意思，没有共享成功！

作者: roych 时间: 2016-6-25 09:00

pyh512 发表于 2016-6-24 17:24
提示16是怎么意思，没有共享成功！

请引用Microsoft scripting runtime 库。

作者: pyh512 时间: 2016-6-26 21:13
没能实现如图共享功能，每次我都得手动实现共享

作者: 风中漫步 时间: 2016-6-27 13:34

pyh512 发表于 2016-6-26 21:13
没能实现如图共享功能，每次我都得手动实现共享

斑竹说的是根据属性值判断是否已共享.你可以做个判断,2个文件夹,一个已共享,...

分别看返回的属性

作者: pyh512 时间: 2016-6-27 14:21

风中漫步发表于 2016-6-27 13:34
斑竹说的是根据属性值判断是否已共享.你可以做个判断,2个文件夹,一个已共享,...

分别看返回的属性

原来只是判断文件夹是否共享，相反，我是要实现文件夹共享

作者: todaynew 时间: 2016-6-27 14:56

pyh512 发表于 2016-6-27 14:21
原来只是判断文件夹是否共享，相反，我是要实现文件夹共享

应该直接用代码设置文件夹共享不一定能行，因为这不安全。

作者: pyh512 时间: 2016-6-28 09:46

todaynew 发表于 2016-6-27 14:56
应该直接用代码设置文件夹共享不一定能行，因为这不安全。

说的也是，有道理！不理这个问题了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)