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

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

10年積累的網(wǎng)站設(shè)計(jì)、網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先建設(shè)網(wǎng)站后付款的網(wǎng)站建設(shè)流程，更有呼中免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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從文件路徑中獲取文件名

獲取方法，參考實(shí)例如下：

'獲取路徑名各部分:

如：

c:\dir1001\aaa.txt

'獲取路徑路徑

c:\dir1001\

Public

Function

GetFileName(FilePathFileName

As

String)

As

String

'獲取文件名

aaa.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

GetFileName

Mid(FilePathFileName,

J

+

1,

i)

End

Function

''獲取路徑路徑

c:\dir1001\

Public

Function

GetFilePath(FilePathFileName

As

String)

As

String

'獲取路徑路徑

c:\dir1001\

On

Error

Resume

Next

Dim

J

As

Integer

J

InStrRev(FilePathFileName,

"\")

GetFilePath

Mid(FilePathFileName,

1,

J)

End

Function

'獲取文件名但不包括擴(kuò)展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'獲取文件名但不包括擴(kuò)展名

aaa

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer,

k

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

k

InStrRev(FilePathFileName,

".")

If

k

Then

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

i

-

J)

Else

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

k

-

J

-

1)

End

If

End

Function

'＝＝＝＝＝

'獲取擴(kuò)展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'獲取擴(kuò)展名

.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

".")

If

J

Then

GetFileExtName

".txt"

Else

GetFileExtName

Mid(FilePathFileName,

J,

i)

End

If

End

Function

VB.NET如何使用DOS命令

運(yùn)行一個(gè)可執(zhí)行程序，并且如果該程序仍然在運(yùn)行，則返回一個(gè)包含該程序的進(jìn)程

ID

的整數(shù)。

Public

Function

Shell(

_

ByVal

PathName

As

String,

_

Optional

ByVal

Style

As

AppWinStyle

=

AppWinStyle.MinimizedFocus,

_

Optional

ByVal

Wait

As

Boolean

=

False,

_

Optional

ByVal

Timeout

As

Integer

=

-1

_

)

As

Integer

參數(shù)

PathName

必選。String。要執(zhí)行的程序的名稱，以及任何必選的參數(shù)和命令行開關(guān)。PathName

也可以包含驅(qū)動(dòng)器和目錄路徑或文件夾。

如果您不知道程序的路徑，可以使用

My.Computer.FileSystem.GetFiles

方法進(jìn)行查找。例如，調(diào)用

My.Computer.FileSystem.GetFiles("C:\",

True,

"testFile.txt")

可以返回驅(qū)動(dòng)器

C:\

上任意處的名稱為

testFile.txt

的每個(gè)文件的完整路徑。

Style

可選。AppWinStyle。從

AppWinStyle

枚舉中選擇的值，指定要在其中運(yùn)行程序的窗口的樣式。如果省略

Style，則

Shell

將使用

AppWinStyle.MinimizedFocus，它啟動(dòng)程序后最小化并帶有焦點(diǎn)。

Wait

可選。Boolean。指示

Shell

函數(shù)是否應(yīng)等待程序完成的值。如果省略

Wait，Shell

將使用

False。

Timeout

可選。Integer。Wait

為

True

時(shí)要等待的毫秒數(shù)。如果省略

Timeout，則

Shell

使用

-1

表示沒有超時(shí)，并且

Shell

直到程序完成才會(huì)返回。因此，如果省略

Timeout

或?qū)⑵湓O(shè)置為

-1，則

Shell

可能永遠(yuǎn)不會(huì)將控制返回您的程序。

如果你要獲得顯示的結(jié)果，我知道的方法是使用一個(gè)dos管道（名字玄乎，實(shí)際上沒什么）

在命令的最后加一個(gè)

(filename)

這樣這個(gè)命令所有的顯示結(jié)果就背記錄在(filename)里面了

比如

dir

a.txt

這樣dir顯示的結(jié)果就是背全部記錄在a.txt里面

在VB.net中，如何遍歷指定路徑下的文件夾并把文件夾名存儲(chǔ)在數(shù)組中？

給你一個(gè)提示吧！呵呵，剩下的要自己思考哦！

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

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

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

回答補(bǔ)充：

把遞歸去掉就行了??！

VB.NET獲取目錄文件夾名稱

先用System.IO.Directory.GetDirectories函數(shù)獲取子目錄的名稱（包括其路徑），再用System.IO.Path.GetFileName獲取子目錄的名稱。下面是代碼：

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

For Each s In System.IO.Directory.GetDirectories("C:\Windows")

Console.WriteLine(System.IO.Path.GetFileName(s))

Next

End Sub

下面是部分輸出：

Application Data

AppPatch

assembly

BOCNET

Boot

Branding

ConfigSetRoot

Cursors

Debug

DigitalLocker

Downloaded Installations

Downloaded Program Files

ehome

en-US

Fonts

Globalization

Help

...

可能有更簡潔的方法，你可以到MSDN看看

System.IO.Directory.GetDirectories：

System.IO.Path.GetFileName：

通用 I/O 任務(wù)：

VB.net怎樣保存文件

保存文件的步驟為：

關(guān)閉流，特別是寫入流

關(guān)閉并保存文件

示例代碼如下：

Imports?System.Windows.Forms

Imports?System.IO

Imports?System.Text

Sub?SaveFileDemo()

'打開文件。如果文件不存在則創(chuàng)建新的文件

Dim?myFile?As?New?IO.FileStream("d:\data.txt",?_

FileMode.OpenOrCreate,?_

FileAccess.Write)

'在文件末尾添加一行?

Dim?tw?As?New?StreamWriter(myFile)

myFile.Seek(0,?SeekOrigin.End)

tw.WriteLine("白刃格斗英雄連英模部隊(duì)方隊(duì)亮相閱兵")

'關(guān)閉流

tw.Close()

'關(guān)閉文件并保存文件

myFile.Close()

End?Sub

網(wǎng)站題目：vb.netdir的簡單介紹
文章路徑：http://jinyejixie.com/article32/doseopc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營銷、搜索引擎優(yōu)化、網(wǎng)站建設(shè)、網(wǎng)站策劃、網(wǎng)站設(shè)計(jì)公司、App設(shè)計(jì)

廣告

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