我在文件夹中有很多文本文件.我现在能做的是一次阅读一个文本并将其插入数据库.我的小应用程序在调试时读取文本文件.因此,我需要多次运行它来读取所有这些文本文件并将它们导入数据库.
我的问题是如何一次读取文件夹中的多个文本文件.这是我的代码工作正常,但它一次只读取一个文本文件.
Private Sub btnRead_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnRead.Click
Dim filelocation As String
filelocation = "F:\txtfiles\ch25.txt"
Dim chid As Integer
chid = 25
'read from file'
Dim MyStream As New StreamReader(Path.Combine(Application.StartupPath,filelocation))
Dim vArray() As String = MyStream.ReadToEnd.Split(CChar("$"))
MyStream.Close()
Dim count As Integer
'insert text to table'
For d As Integer = 0 To vArray.Length - 1 Step 1
If d = vArray.Length - 1 Then
Exit For
End If
InsertKh(chid,d + 1,vArray(d))
count = d + 1
Next
MsgBox ("Done Inserting")
End Sub
显然,我需要一种方法来遍历文件夹并检查是否有文本文件.但我无法做到对.谁能给我看一些代码或链接？我正在使用VB.NET,.NET 3.5
非常感谢.
看看
Directory.GetFiles.
您可以使用指定的搜索模式(如“* .txt”)调用它来查找特定类型的文件.像这样的东西：
Dim fileEntries As String() = Directory.GetFiles(targetDirectory,"*.txt")
' Process the list of .txt files found in the directory. '
Dim fileName As String
For Each fileName In fileEntries
ProcessFile(fileName)