扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
可以调用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")
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网