15

次のコードがあります。

Dim text As String = IO.File.ReadAllText("C:\Example.xtp")

file.readalltextこのコードは単一のファイルに固有のものですが、特定のディレクトリ内のすべてのファイルに適用したいと考えています。

どうすればこれを達成できますか?

4

4 に答える 4

42

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
于 2013-05-21T13:09:35.983 に答える
17
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
于 2014-11-14T09:36:08.210 に答える
5
System.IO.Directory.GetFiles() 

助けることができます

于 2013-05-21T13:10:55.640 に答える
2

これを試して:

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
于 2013-05-21T13:46:30.240 に答える