如何指定文件夹共享

pyh512 · 发表于 2016-6-24 08:45:50

本帖最后由 pyh512 于 2016-6-24 17:27 编辑

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

todaynew · 发表于 2016-6-24 12:09:59

dim fso as new filesystemobject
dim f as folder
set f=fso.getfolder("阁下的文件夹地址")
msgbox f.attributes

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

pyh512 · 发表于 2016-6-24 17:18:20

出现这样错误，是引用引起的吗？

pyh512 · 发表于 2016-6-24 17:24:21

提示16是怎么意思，没有共享成功！

roych · 发表于 2016-6-25 09:00:31

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

请引用Microsoft scripting runtime 库。

pyh512 · 发表于 2016-6-26 21:13:13

没能实现如图共享功能，每次我都得手动实现共享

风中漫步 · 发表于 2016-6-27 13:34:23

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

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

分别看返回的属性

pyh512 · 发表于 2016-6-27 14:21:48

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

分别看返回的属性

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

todaynew · 发表于 2016-6-27 14:56:58

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

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

pyh512 · 发表于 2016-6-28 09:46:24

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

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

帐号		自动登录	找回密码
密码			注册

[其它] 如何指定文件夹共享

群介绍
主题无相 (随机显示版	同地区群块其他地区)