十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在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