我有以下代码。
Dim text As String = IO.File.ReadAllText("C:\Example.xtp")
此代码特定于单个文件,但我希望file.readalltext
代表特定目录中的每个文件。
我怎样才能做到这一点?
答案 0 :(得分:25)
您需要使用IO.Directory.GetFiles功能。
Dim files() As String = IO.Directory.GetFiles("c:\")
For Each file As String In files
' Do work, example
Dim text As String = IO.File.ReadAllText(file)
Next
答案 1 :(得分:7)
Dim fileEntries As String() = Directory.GetFiles("YourPath", "*.txt")
' Process the list of .txt files found in the directory. '
Dim fileName As String
For Each fileName In fileEntries
If (System.IO.File.Exists(fileName)) Then
'Read File and Print Result if its true
ReadFile(fileName)
End If
TransfereFile(fileName, 1)
Next
答案 2 :(得分:4)
System.IO.Directory.GetFiles()
可以提供帮助
答案 3 :(得分:1)
试试这个:
Dim text As String = ""
Dim files() As String = IO.Directory.GetFiles(sFolder)
For Each sFile As String In files
text &= IO.File.ReadAllText(sFile)
Next