扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
在OpTree中，要调用GetInfo的ReadInfo()，可以新建一个GetInfo类的实例：
创新互联公司从2013年创立，先为铜川等服务建站，铜川等地企业，进行企业商务咨询服务。为铜川企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Dim GI As New GetInfo
GI.ReadInfo()
NET SHARE命令设置共享路径,如将D盘设为共享
所以你可以使用shell "net share D$"
Private Sub Command1_Click()
Dim FileN$, PathN$
FileN = "Test001"
PathN = IIf(Right(App.Path, 1) = "\", App.Path, App.Path "\")
MkDir PathN FileN
Shell "cmd /c net share " FileN "=" PathN FileN
MsgBox "ok"
End Sub
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网