重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在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