vbnet文件操作,vbnet读取文件内容

如何使用VB．NET FileInfo类对文件操作

在网上收到一些关于文件操作的列子，现在和大家分享一下，以下的示例代码将向您展示如何使用VB．NET FileInfo来拷贝、移动和删除文件，以及如何使用DirectoryInfo来移动和删除文件夹。（注意：为了运行这些示例，您需要将这条语句：Imports System．IO，添加到您的表单或模块的最顶部。）

VB．NET FileInfo示例 拷贝一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．CopyTo（"C：abc2．txt"， True）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了拷贝一个文件，我们使用FileInfo对象中的CopyTo方法并指明我们计划要拷贝的目标文件的全名。 移动一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．MoveTo（"C：abc3．txt"）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了拷贝一个文件，我们使用FileInfo对象中的CopyTo方法并指明我们计划要移动的目标文件的全名。 删除一个文件 1. Dim fFile1 As New FileInfo（"C：abc1．txt"）2.3. fFile1．Delete（）4. 我们将fFile1变量定义为一个FileInfo对象并设定它指向文件系统中的一个目录，为了删除一个文件，我们使用FileInfo对象中的Delete方法。 VB．NET FileInfo DirectoryInfo示例 移动一个文件夹 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．MoveTo（"C：Folder2"）4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录，为了移动一个文件夹，我们使用DirectoryInfo对象的MoveTo方法，并指明我们所移动的文件夹的完整目标路径。 删除一个文件夹 1. Dim dDir1 As New DirectoryInfo（"C：Folder1"）2.3. dDir1．Delete（）4. 我们将dDir1变量定义为一个DirectoryInfo对象并设定它指向文件系统中的一个目录，为了删除一个文件夹，我们使用DirectoryInfo对象的Delete方法。） 作者：未知 来源：网络

相关问答

Q1: VB.net 读取文本文件？

1、实现上传按钮方法代码。

2、判断图片对象是否为空代码。

3、取得数据库字段 dt.Rows(0)("Pic")方法代码。

4、字节数组转换为Image类型方法代码。

5、处理SQL中操作Image类型方法代码。

6、实现的上传结果。

Q2: 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()中针对你所需要的文件进行操作等

Q3: vb.net操作word

将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！

同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2,

将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2

如果今后遇到这种问题，直接打开Word，然后

sub xx()

msgbox wdParagraph

end sub

就可以得到wdParagraph的真实值。

Q4: vb.net对文件的操作，在线等

Dim txtStr As String = "F:\te.txt" 'txt文件路径

Dim endname As String = "doc" '文件类型

Dim folderStr As String = "e:\file\我的文档\毕业设计" '目录位置

Dim str() As String = IO.Directory.GetFiles(folderStr)

For i = 0 To str.Length - 1

Dim itendname As String = Strings.Right(str(i), str(i).Length - Strings.InStrRev(str(i), "."))

Dim strs As String = ""

If itendname = endname Then

strs += str(i) + vbCrLf

End If

IO.File.AppendAllText(txtStr, strs)

Next