私は次のコードを持っています。
Dim text As String = IO.File.ReadAllText("C:\Example.xtp")
このコードは単一のファイルに固有のものですが、file.readalltext
特定のディレクトリ内のすべてのファイルに対して。
どうすればこれを達成できますか?
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
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
System.IO.Directory.GetFiles()
助けることができます
これを試して:
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