vb.net 获取目录下文件夹名不包括隐藏文件夹

Vb.net获取某个目录下文件夹名称（不包含隐藏文件夹）实现代码如下：

10年积累的网站设计、网站制作经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先建设网站后付款的网站建设流程，更有呼中免费网站建设让你可以放心的选择与我们合作。

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:\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

'获取文件名但不包括扩展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'获取文件名但不包括扩展名

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

'＝＝＝＝＝

'获取扩展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'获取扩展名

.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命令

运行一个可执行程序，并且如果该程序仍然在运行，则返回一个包含该程序的进程

ID

的整数。

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

参数

PathName

必选。String。要执行的程序的名称，以及任何必选的参数和命令行开关。PathName

也可以包含驱动器和目录路径或文件夹。

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

My.Computer.FileSystem.GetFiles

方法进行查找。例如，调用

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

True,

"testFile.txt")

可以返回驱动器

C:\

上任意处的名称为

testFile.txt

的每个文件的完整路径。

Style

可选。AppWinStyle。从

AppWinStyle

枚举中选择的值，指定要在其中运行程序的窗口的样式。如果省略

Style，则

Shell

将使用

AppWinStyle.MinimizedFocus，它启动程序后最小化并带有焦点。

Wait

可选。Boolean。指示

Shell

函数是否应等待程序完成的值。如果省略

Wait，Shell

将使用

False。

Timeout

可选。Integer。Wait

为

True

时要等待的毫秒数。如果省略

Timeout，则

Shell

使用

-1

表示没有超时，并且

Shell

直到程序完成才会返回。因此，如果省略

Timeout

或将其设置为

-1，则

Shell

可能永远不会将控制返回您的程序。

如果你要获得显示的结果，我知道的方法是使用一个dos管道（名字玄乎，实际上没什么）

在命令的最后加一个

(filename)

这样这个命令所有的显示结果就背记录在(filename)里面了

比如

dir

a.txt

这样dir显示的结果就是背全部记录在a.txt里面

在VB.net中，如何遍历指定路径下的文件夹并把文件夹名存储在数组中？

给你一个提示吧！呵呵，剩下的要自己思考哦！

Path：是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里，直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

Next

End Sub

如果子目录较多那么递归会比较费时间，在调用递归前加入application.doevent就行了，这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充：

把递归去掉就行了啊！

VB.NET获取目录文件夹名称

先用System.IO.Directory.GetDirectories函数获取子目录的名称（包括其路径），再用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 任务：

VB.net怎样保存文件

保存文件的步骤为：

关闭流，特别是写入流

关闭并保存文件

示例代码如下：

Imports System.Windows.Forms

Imports System.IO

Imports System.Text

Sub SaveFileDemo()

'打开文件。如果文件不存在则创建新的文件

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("白刃格斗英雄连英模部队方队亮相阅兵")

'关闭流

tw.Close()

'关闭文件并保存文件

myFile.Close()

End Sub

新闻名称：vb.netdir的简单介绍
网站网址：http://myzitong.com/article/doseopc.html