vb.net枚举文件夹,文件夹无法枚举容器中的对象

新手关于VB.net的问题

您好,在Visual Basic.NET中,是没有像这样的文件I/O操作的,一般都是通过System.IO.StreamReader和System.IO.StreamWriter类,System.IO.BinaryReader和System.IO.BinaryWriter类来读写文件以及利用My.Computer.FileSystem类读写文件,利用System.IO.Filestream类来创建文件,通过引用Microsoft Scripting Runtime来执行文件(夹)和驱动器的特殊操作,常用的是System.IO.StreamReader和System.IO.StreamWriter类。

创新互联建站专注于庄河网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供庄河营销型网站建设,庄河网站制作、庄河网页设计、庄河网站官网定制、重庆小程序开发服务,打造庄河网络公司原创品牌,更为您提供庄河网站排名全网营销落地服务。

例如说要读取一个文件,我们可以利用System.IO.StreamReader类编写一个方法(也就是函数),但是首先要在当前类的开头添加一个引用,引用名称:System.IO,添加引用的代码如下

Imports System.IO

添加引用之后,就在当前类的内部创建方法:

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

ReadFile = sr.ReadToEnd()

sr.Close()

sr = Nothing

End Function

示例说明:

该方法是一个返回String(字符串)数据的函数,FileURL作为参数是用来存放需要访问的文件的URL,当然,要获取一个文件的URL,就是利用这一句代码实现的:

Dim sr As StreamReader = New StreamReader(FileURL)

当获取了URL之后,就要对文件进行读取操作了,然后将读取的结果返回给方法:

ReadFile = sr.ReadToEnd()

读取文件完毕之后,要对文件执行关闭操作:

sr.Close()

当然别忘了清理资源:

sr = Nothing

StreamReader类可以从流或文件中读取字符,在创建StreamREader类的对象时,可以指定一个流对象,也可以指定一个文件URL,创建对象后就可以调用他的方法,从流中读取数据,其常用方法如下:

Peek:返回下一个可用字符,但不使用它。

Read:读取输入流中下一个字符或一组字符并移动流或文件指针。

ReadBlock:从当前流中读取最大数量字符并从index开始将数据写入buffer。

ReadLine:从当前流中读取一行字符并将字符作为String返回。

REadToEnd:从流的当前位置到末尾读取流。

Close:关闭打开的对象,释放资源。

注:流,一种新的数据格式,这种格式可通过System.IO命名空间下的类访问。流用Stream类表示,所有的流都是从这个类中继承的。流向用户提供了一个一般的数据视图,隐藏了操作系统和底层设备的实现细节,所有的流都支持读写操作。在打开文件时将返回对应的流对象,用户可以对流对象进行读写操作。

如果要对文件执行按行读取操作,这时就会用到枚举,这时候,代码就要更改一下了:

Private Function ReadFile(ByVal FileURL As String) As String

Dim sr As StreamReader = New StreamReader(FileURL)

For Each fLine As String In sr.ReadToEnd()

Line = sr.ReadLine()

ReadFile = ReadFile fLine

Next sr.ReadLine

sr.Close()

End Function

示例说明:

For Each…Next:派生于For…Next循环,用于枚举一系列对象中的成员,而这些对象组成集合,如果集合中至少存在一个元素,程序就会静茹For Each块执行。其格式如下:

For Each 元素 [As 数据类型] In 元素集合

[循环体]

[Exit For]

[循环体]

Next [元素]

比如:

Dim CountNumber As ULong = 0

Dim FolderName() As String = New String() {" "}

For Each strFolder As String In My.Computer.FileSystem.GetDirectories("C:\")

CountNumber = CountNumber + 1

ReDim Preserve FolderName(1 To CountNumber)

FolderName = strFolder

Next strFolder

注:My.Computer.FileSystem.GetDirectories:主要用来枚举指定目录的子文件夹。

Preserve:主要用来避免重定义数组而不损失数组元素的原有数据。

另外,利用My.Computer.FileSystem也可以实现文件的读取,其代码如下:

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt")

示例说明:

定义一个字符串变量利用My.Computer.FileSystem.ReadAllText来实现对“C:\test.txt”的读取。

如果是已经编码的文本,则可以使用My.Computer.FileSystem对象中的ReadAllText方法并提供路径和文件编码类型,将文本写入字符串变量中,例如:

Dim fpReader As String = My.Computer.FileSystem.ReadAllText("C:\test.txt", _

System.Text.Encoding.UTF32)

当然,System.Text.Encoding的成员不止一个,它还有如下成员:

System.Text.Encoding.UTF8

System.Text.Encoding.UTF16

System.Text.Encoding.ASCII

System.Text.Encoding.Unicode

这些是常见的成员,也是主要的成员。

另外,利用My.Computer.Filesystem类无法实现文件的行操作,还有,如果您的计算机未安装完整的Microsoft.NET Framework Runtime,则无法实现这种操作!

写入文件的操作同样简单,Visual Basic.NET 允许用户使用StreamWriter来对文件写入内容,下面就让我们来创建一个子例程,来实现文件的写入:

Private Sub WriterFile(ByVal FileURL As String, ByVal FileCon As String)

Dim sr As StreamWriter = New StreamWriter(FileURL)

sr.Write(FileCon)

sr.Close()

sr = Nothing

End Sub

示例说明:

sr.Write(FileCon):将FileCon写入文件FileURL之中。

另外,StreamWriter常用方法如下:

WriteLine:向流中写入一行,后面跟结束符。

Write:写入流,向流对象中写入字符并移动流或文件指针。

Close:关闭打开的对象,释放资源。

附:Visual Basic 6.0文件操作解说:

打开: Open 文件名 For Input | Output | Append As [#]文件号

Input打开读入,文件不存在报错。Output打开覆盖写入,文件不存在则创建。Append打 开追加写入,文件不存在则创建。

读: Line Input #文件号, 字符串变量

读一行数据存入字符串变量,数据包括空格、Tab、等,不包括回车符和换行符,所以要显示文件的换行效果,要手动添加回车符和换行符(vbCrLf)

Input #文件号, 变量1[, | ;] [变量2]...

这种方式可以存入多个变量,而且变量类型不限于字符串型。

写: Print #文件号, 参数1[, | ;] [参数2]...

将各参数逐个写入文件。参数间用逗号隔开时,文件中相应插入多个空格;用分号隔开时,插入一个空格。可以用Spc(n)、Tab(n)等进行排版。

Write #文件号, 参数1[, | ;] [参数2]...

这种写入方式将自动添加界定符,对不同参数的类型加以界定。

Visual Basic 6.0文件操作函数:

Seek: Seek(文件号)

返回文件正在访问的位置,返回值为长整型。对顺序文件和二进制文件,返回值以字节为单位;对随机访问文件,返回值以记录号为单位。

Seek: Seek [#]文件号,位置

定位文件到指定位置。位置单位同上所述。

Input: Input (字节数,[#]文件号)

从文件的访问当前位置读入指定字节数的数据。仅适用于顺序文件和二进制文件。

EOF: EOF(文件号)

判断文件的访问位置是否在文件尾,如果是,返回True,否则,返回False。

LOF: LOF(文件号)

返回文件长度,单位为字节。

FileLen: FileLen (文件名)

返回文件名对应文件的长度,单位是字节。该函数取磁盘文件标识中的长度,即文件打开前的长度,可以取未打开的文件长度。

GetAttr: GetAttr (Pathname)

返回指定文件或文件夹的属性。

FileAttr: FileAttr (文件号)

返回文件号对应文件的打开方式。

GetDateTime: GetDateTime (Pathname)

返回文件被创建或修改的最后日期和时间。

Free: FreeFile[(0|1)]

返回未被占用的文件号,Free或Free(0)返回1~255之间未占用的文件号,Free(1)返回256~511之间未占用的文件。

Dir: Dir (Pathname [,Attributes])

测试指定路径是否有某文件,Attributes附加文件属性条件,取值vbNormal、vbReadOnly、vbHidden、vbSystem、vbVolume、vbDirectory。

Kill: Kill (文件名)

删除指定文件,文件名可包含路径。

FileCopy: FileCopy 源文件,目标文件

拷贝文件。

Name: Name 旧文件名 As 新文件名

文件重命名。前后路径不一致时,操作为移动文件并重命名。

MkDir: MkDir path

新建文件夹。

RmDir: Rmdir path

删除文件夹。

ChDrive: ChDrive Drive

改变当前驱动器 ChDrive "D"

CurDir: CurDir [(driver)]

返回当前工作路径,指定driver则返回目标驱动器的当前工作路径。

举例:

'新建文件,并写入数据,关闭

Open "a.txt" For Output As #1

Print #1, "ABCDEFG"; vbCrLf; "HIJK"

Close #1

'打开文件,并全部写入新文件,关闭

Open "a.txt" For Input As #2

Open "b.txt" For Output As #3

Dim str As String

While (Not EOF(2))

Line Input #2, str

Print #3, str

Wend

Close

注:关于Visual Basic 6.0的文件操作资料来自于

如果您觉得我的回答帮助了您解决难题,别忘了采纳哦,如果我的回答未能解决您的问题,您可以在互联网上寻找更多的解决方案!

VB.net列举文件夹的所有文件

vb.net使用控件folderbrowserdialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

me.folderbrowserdialog1.description

=

"请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

me.folderbrowserdialog1.selectedpath

=

"c:\"

if

me.folderbrowserdialog1.showdialog()

=

dialogresult.ok

then

'取得全路径(包含文件名)

reportpath1

=

system.io.path.getfullpath(me.folderbrowserdialog1.selectedpath)

'设定text显示文件名

txtreport1.text

=

reportpath1

setreportlist()

end

if

在setreportlist()中针对你所需要的文件进行操作等

vb.net 文件夹操作

vb.net使用控件FolderBrowserDialog1,在程序中:

'设置对话框中在树视图控件上显示的说明文本

Me.FolderBrowserDialog1.Description

=

"请选择输出报表所在路径:"

'设置从其开始浏览的根文件夹

Me.FolderBrowserDialog1.SelectedPath

=

"c:\"

If

Me.FolderBrowserDialog1.ShowDialog()

=

DialogResult.OK

Then

'取得全路径(包含文件名)

reportPath1

=

System.IO.Path.GetFullPath(Me.FolderBrowserDialog1.SelectedPath)

'设定text显示文件名

txtReport1.Text

=

reportPath1

setReportList()

End

If

在setReportList()中针对你所需要的文件进行操作等

VB.NET的枚举求教解决方法

这个功能实现起来其实也很简单,就是通过反射去读取 DescriptionAttribute 的 Description 属性的值,代码如下所示:

/// summary

/// 返回枚举项的描述信息。

/// /summary

/// param name="value"要获取描述信息的枚举项。/param

/// returns枚举想的描述信息。/returns

public static string GetDescription(Enum value)

{

Type enumType = value.GetType();

// 获取枚举常数名称。

string name = Enum.GetName(enumType, value);

if (name != null)

{

// 获取枚举字段。

FieldInfo fieldInfo = enumType.GetField(name);

if (fieldInfo != null)

{

// 获取描述的属性。

DescriptionAttribute attr = Attribute.GetCustomAttribute(fieldInfo,

typeof(DescriptionAttribute), false) as DescriptionAttribute;

if (attr != null)

{

return attr.Description;

}

}

}

return null;

}

这段代码还是很容易看懂的,这里取得枚举常数的名称使用的是 Enum.GetName() 而不是 ToString(),因为前者更快,而且对于不是枚举常数的值会返回 null,不用进行额外的反射。

当然,这段代码仅是一个简单的示例,接下来会进行更详细的分析。


本文名称:vb.net枚举文件夹,文件夹无法枚举容器中的对象
当前链接:http://pwwzsj.com/article/hodggh.html