内射老阿姨1区2区3区4区_久久精品人人做人人爽电影蜜月_久久国产精品亚洲77777_99精品又大又爽又粗少妇毛片

vbnet開啟目錄 vb 打開文件路徑的代碼

怎樣在vb點虐 中用button打開程序運行的根目錄

這個就是你要的了!希望你能用!

目前累計服務(wù)客戶上1000家,積累了豐富的產(chǎn)品開發(fā)及服務(wù)經(jīng)驗。以網(wǎng)站設(shè)計水平和技術(shù)實力,樹立企業(yè)形象,為客戶提供網(wǎng)站設(shè)計制作、成都做網(wǎng)站、網(wǎng)站策劃、網(wǎng)頁設(shè)計、網(wǎng)絡(luò)營銷、VI設(shè)計、網(wǎng)站改版、漏洞修補等服務(wù)。創(chuàng)新互聯(lián)公司始終以務(wù)實、誠信為根本,不斷創(chuàng)新和提高建站品質(zhì),通過對領(lǐng)先技術(shù)的掌握、對創(chuàng)意設(shè)計的研究、對客戶形象的視覺傳遞、對應(yīng)用系統(tǒng)的結(jié)合,為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案,攜手廣大客戶,共同發(fā)展進步。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應(yīng)用程序的當前工作目錄

Process.Start(AppPath) '打開當前目錄

End Sub

忘了說,這個要引用命名空間!

把Imports System.IO 寫到代碼最上邊就好了!

vb點虐 中如何設(shè)置啟動項

在右側(cè)解決方案資源管理器窗口下右擊工程名,點擊屬性對話框,在出現(xiàn)的界面中點擊應(yīng)用程序選項卡,里面有一個啟動窗體選項,你可以自由設(shè)置。

如何打開指定路徑下的文件 VB.NET (路徑已經(jīng)知道)

Path:是初始目錄的路徑

Private Sub WriteArray(ByVal Path As String)

'寫入數(shù)組代碼在這里,直接將Path寫到數(shù)組就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '遞歸

Next

End Sub

如果子目錄較多那么遞歸會比較費時間,在調(diào)用遞歸前加入application.doevent就行了,這樣在應(yīng)對大遞歸時不會死機。

至于數(shù)組嘛使用 arraylist 最好了。

回答補充:

把遞歸去掉就行了??!

VB.NET 創(chuàng)建文件夾

用Directory.CreateDirectory即可創(chuàng)建文件夾:

'?建立目錄

If?Not?Directory.Exists("C:\負屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在

Directory.CreateDirectory("C:\負屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾

End?If

你的例子是因為少了一個"\"引起的,正確的如下:

Dim?fsotest?As?New?FileSystemObject

If?fsotest.FileExists("C:\負屃\"??TextBox1.Text)?=?False?Then

fsotest.CreateFolder("C:\負屃\"??TextBox1.Text) '這里你少了一個\

End?If

MsgBox("創(chuàng)建成功")

本文標題:vbnet開啟目錄 vb 打開文件路徑的代碼
URL標題:http://www.rwnh.cn/article20/ddcpcjo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供靜態(tài)網(wǎng)站、軟件開發(fā)自適應(yīng)網(wǎng)站、標簽優(yōu)化、App開發(fā)、網(wǎng)站排名

廣告

聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)

h5響應(yīng)式網(wǎng)站建設(shè)
磐石市| 准格尔旗| 潞西市| 襄樊市| 宜城市| 甘孜| 兴和县| 甘南县| 大余县| 曲水县| 红河县| 资溪县| 阿尔山市| 玉环县| 阿拉善盟| 宁津县| 呈贡县| 金沙县| 长武县| 永平县| 新建县| 沐川县| 紫阳县| 久治县| 商河县| 闽侯县| 阿克| 志丹县| 辽中县| 横山县| 千阳县| 离岛区| 泾川县| 株洲市| 苍溪县| 阿克苏市| 衡山县| 仙游县| 六盘水市| 高安市| 兴文县|