可以調(diào)用CMD
創(chuàng)新互聯(lián)聯(lián)系熱線(xiàn):18982081108,為您提供成都網(wǎng)站建設(shè)網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù),創(chuàng)新互聯(lián)網(wǎng)頁(yè)制作領(lǐng)域十年,包括圍欄護(hù)欄等多個(gè)方面擁有多年設(shè)計(jì)經(jīng)驗(yàn),選擇創(chuàng)新互聯(lián),為企業(yè)錦上添花。
方法一:
Shell("cmd.exe?/c?call?c:\新建文本文檔.txt",?AppWinStyle.NormalFocus)
缺點(diǎn):不但會(huì)打開(kāi)文本文件,同時(shí)還會(huì)顯示一個(gè)cmd窗體。
方法二:
需要新建一個(gè)bat文件到資源里,輸入start C:\新建文本文檔.txt
代碼
shell?"bat文件的路徑.bat"
這樣就好了,兩種方法各有好壞。一個(gè)會(huì)顯示cmd窗體,一個(gè)需要bat文件。
Path:是初始目錄的路徑
Private Sub WriteArray(ByVal Path As String)
'寫(xiě)入數(shù)組代碼在這里,直接將Path寫(xiě)到數(shù)組就行了。
Dim dir As New IO.DirectoryInfo(Path)
For Each d As IO.DirectoryInfo In dir.GetDirectories
WriteArray(d.FullName) '遞歸
Next
End Sub
如果子目錄較多那么遞歸會(huì)比較費(fèi)時(shí)間,在調(diào)用遞歸前加入application.doevent就行了,這樣在應(yīng)對(duì)大遞歸時(shí)不會(huì)死機(jī)。
至于數(shù)組嘛使用 arraylist 最好了。
回答補(bǔ)充:
把遞歸去掉就行了??!
Process.Start(“cad主程序的路徑”,“要打開(kāi)文件的目錄”)
比如用記事本打開(kāi) c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")