vb.net怎么实现读取指定WORD文档中的内容

添加spire.doc.dll为引用，在vb.net中读取指定word文档的内容到 txt文件，代码示例如下：

创新互联是一家专注于成都网站制作、做网站、外贸营销网站建设与策划设计,田阳网站建设哪家好?创新互联做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:田阳等地区。田阳做网站价格咨询:18982081108

'加载Word文档

Dim doc As Document = New Documentdocument.LoadFromFile("测试文档.docx")

'使用GetText方法获取文档中的所有文本

Dim s As String = doc.GetText

File.WriteAllText("文本1.txt", s.ToString)

vb.net 如何实现文件选择

给你一个遍历所有盘符下的文件夹的例子

加一个遍历文件的就可以了。

TreeNode node = new TreeNode("我的电脑");

treeView.Nodes.Add(node); //加入一个我的电脑节点

string[] drivesName = System.IO.Directory.GetLogicalDrives() //取得驱动器列表的集合

foreach(string name in drivesName) //用foreach遍历集合

{

TreeNode drivesNode = new TreeNode(name);

node.Nodes.Add(drivesNode); //加到我的电脑节点下

VB.NET 筛选指定目录下的指定文件（扩展名）

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

Dim a As String = "c:\windows\system"

For Each ws In My.Computer.FileSystem.GetFiles(a)

Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定义扩展名变量

If kzm = "mp4" Or kzm = "avi" Or kzm = "flv" Then '这里一定要注意扩展名的大小写，如aviAVI的

Me.ListBox1.Items.Add(ws)

End If

Next

End Sub

VB.net遍历某个文件夹，并读取子目录中的指定文件

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文件(文件写入的编码要与读取的编码一致)

新闻名称：vb.net选中指定文件 vbs 文件选择框
文章出自：http://ybzwz.com/article/dosegco.html