从品牌网站建设到网络营销策划,从策略到执行的一站式服务
可以调用CMD
创新互联联系热线:18982081108,为您提供成都网站建设网页设计及定制高端网站建设服务,创新互联网页制作领域十年,包括围栏护栏等多个方面拥有多年设计经验,选择创新互联,为企业锦上添花。
方法一:
Shell("cmd.exe /c call c:\新建文本文档.txt", AppWinStyle.NormalFocus)
缺点:不但会打开文本文件,同时还会显示一个cmd窗体。
方法二:
需要新建一个bat文件到资源里,输入start C:\新建文本文档.txt
代码
shell "bat文件的路径.bat"
这样就好了,两种方法各有好坏。一个会显示cmd窗体,一个需要bat文件。
Path:是初始目录的路径
Private Sub WriteArray(ByVal Path As String)
'写入数组代码在这里,直接将Path写到数组就行了。
Dim dir As New IO.DirectoryInfo(Path)
For Each d As IO.DirectoryInfo In dir.GetDirectories
WriteArray(d.FullName) '递归
Next
End Sub
如果子目录较多那么递归会比较费时间,在调用递归前加入application.doevent就行了,这样在应对大递归时不会死机。
至于数组嘛使用 arraylist 最好了。
回答补充:
把递归去掉就行了啊!
Process.Start(“cad主程序的路径”,“要打开文件的目录”)
比如用记事本打开 c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图