最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

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

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

為古縣等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計制作服務(wù)，及古縣網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都做網(wǎng)站、成都網(wǎng)站制作、古縣網(wǎng)站設(shè)計，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達到每一位用戶的要求，就會得到認可，從而選擇與我們長期合作。這樣，我們也可以走得更遠！

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.net遍歷某個文件夾，并讀取子目錄中的指定文件

vb.net：

Dim

path

=

System.IO.Directory.GetFiles("D:\Log\abc",

"*.txt",

SearchOption.AllDirectories)：搜索該路徑下的所有txt類型的目錄及子目錄

path.AddRange(path)

Dim

_RecordInfo

As

String

Dim

_Reader

As

StreamReader

_Reader

=

New

StreamReader(file,

System.Text.Encoding.Default)：'以Default編碼的形式讀取file文件(文件寫入的編碼要與讀取的編碼一致)

vb.net文件關(guān)聯(lián)后獲取文件路徑

我沒有設(shè)置關(guān)聯(lián)，只是把文件拖到程序文件上打開，應(yīng)該是一樣的。

主要是看程序啟動時的命令行參數(shù)My.Application.CommandLineArgs，里面包括要打開的文件路徑。

在Sub Main 或者 啟動窗口的Load事件里添加代碼

If My.Application.CommandLineArgs.Count 0 AndAlso My.Computer.FileSystem.FileExists(My.Application.CommandLineArgs(0)) Then‘參數(shù)不為空且文件存在

Dim s As New IO.StreamReader(My.Application.CommandLineArgs(0))

MsgBox(s.ReadToEnd)

End If

你還可以處理更多的命令行參數(shù)。

關(guān)于命令行參數(shù)

vb.net 獲取目錄下文件夾名不包括隱藏文件夾

Vb.net獲取某個目錄下文件夾名稱（不包含隱藏文件夾）實現(xiàn)代碼如下：

Dim?dir?As?New?DirectoryInfo("D:\")

For?Each?d?As?DirectoryInfo?In?dir.GetDirectories

ComboBox1.Items.Add(d.Name)

Next

dim?finfo?as?new?fileinfo(d.name)

if?(finfo.attributes?and?FileAttributes.Hidden)FileAttributes.Hidden?then

ComboBox1.Items.Add(d.Name)

end?if

本文題目：vb.net取當前目錄 C#獲取當前目錄
網(wǎng)頁鏈接：http://fisionsoft.com.cn/article/docsjhd.html