命名空間:System.Windows.Forms
創(chuàng)新互聯(lián)公司主要從事做網(wǎng)站、網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)嵊泗,10余年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):13518219792
Application.StartupPath 屬性(返回String)
獲取啟動(dòng)了應(yīng)用程序的可執(zhí)行文件的路徑,不包括可執(zhí)行文件的名稱。
Application.ExecutablePath 屬性(返回String)
獲取啟動(dòng)了應(yīng)用程序的可執(zhí)行文件的路徑,包括可執(zhí)行文件的名稱。
用Io.Directory.GetFiles("D:\")函數(shù)獲得一個(gè)存放D盤(pán)目錄文件的字符串?dāng)?shù)組
代碼:
For Each item As String In IO.Directory.GetFiles("D:\")
ListBox1.Items.Add(item)
Next
運(yùn)行之后,ListBox1里就會(huì)有這些文件
Server.MapPath("~") "\" "Web.config"Server.MapPath("~") 是取當(dāng)前目錄上一級(jí)的路徑Server.MapPath(".") 是取當(dāng)前目錄的路徑
Vb.net獲取某個(gè)目錄下文件夾名稱(不包含隱藏文件夾)實(shí)現(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
Dim
dir
As
New
IO.DirectoryInfo("C:\TDDownload")
//
目錄下就一個(gè)文件夾
If
dir.GetDirectories.Length
Then
MessageBox.Show(dir.GetDirectories.GetValue(0).ToString())
End
If
//
目錄下多個(gè)文件夾
'For
Each
d
As
IO.DirectoryInfo
In
dir.GetDirectories
'
MessageBox.Show(d.FullName)
'Next
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文件(文件寫(xiě)入的編碼要與讀取的編碼一致)