在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
售后响应及时
7×24小时客服热线数据备份
更安全、更高效、更稳定价格公道精准
项目经理精准报价不弄虚作假合作无风险
重合同讲信誉,无效全额退款