从品牌网站建设到网络营销策划,从策略到执行的一站式服务
在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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图