Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應用程序的當前工作目錄 Process.Start(AppPath) '打開當前目錄 End Sub
創(chuàng)新互聯(lián)公司服務項目包括峨山縣網(wǎng)站建設(shè)、峨山縣網(wǎng)站制作、峨山縣網(wǎng)頁制作以及峨山縣網(wǎng)絡營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,峨山縣網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前,我們服務的客戶以成都為中心已經(jīng)輻射到峨山縣省份的部分城市,未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任!
我也找來的,只找到這個,希望對你有幫助。
命名空間:System.Windows.Forms
Application.StartupPath 屬性(返回String)
獲取啟動了應用程序的可執(zhí)行文件的路徑,不包括可執(zhí)行文件的名稱。
Application.ExecutablePath 屬性(返回String)
獲取啟動了應用程序的可執(zhí)行文件的路徑,包括可執(zhí)行文件的名稱。
這個就是你要的了!希望你能用!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim AppPath As String = Directory.GetCurrentDirectory() '獲取應用程序的當前工作目錄
Process.Start(AppPath) '打開當前目錄
End Sub
忘了說,這個要引用命名空間!
把Imports System.IO 寫到代碼最上邊就好了!