将一个文件附加到另一个文件中

Question

我一直在研究这个问题，我发现的所有示例都是将给定的字符串附加到文件中，但是我无法找到任何运气将整个文件附加到文件的结尾。一切都在使用不适合我需要的 .appendAllText 或 appendText。

我的文件是.sgm。在我的代码中，我首先获取所有 sgm 文件，然后检查该文件是否以 _Ch# 结尾。

我已准备好将文件附加到主文件，但到目前为止，我所能做的只是将文件名的字符串文本附加到主文件的末尾。

非常感谢您的帮助。 最大

Public Class Form1
Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
    Dim searchDir As String = txtSGMFile.Text 'input field for user
    'Get all the sgm files in the directory specified
    Dim fndFiles = Directory.GetFiles(searchDir, "*.sgm")
    'Set up the regular expression you will make as the condition for the file
    Dim rx = New Regex(".*_Ch\d\.sgm")
    Dim ch1 = New Regex(".*_Ch[1]\.sgm")
    Dim existingFile = searchDir & "\Bld1_Master_Document.sgm"


    'Loop through each file found by the REGEX
    For Each file In fndFiles
        If rx.IsMatch(file) Then
            If ch1.IsMatch(file) Then
                Dim result = Path.GetFileName(file)
                Dim fileToCopy = searchDir & "\" & result

                'THIS IS WHERE I WANT TO APPEND fileToCopy INTO existingFile
                System.IO.File.AppendAllText(fileToCopy, existingFile)


                MessageBox.Show("File Copied")
            End If
            'MsgBox(file)
        End If
    Next file
    Close()
End Sub

Answer 1

您可以使用这样的方法逐字附加所有字节：

Using fs As New System.IO.FileStream(existingFile, IO.FileMode.Append)
    Dim bytes() As Byte = System.IO.File.ReadAllBytes(fileToCopy)
    fs.Write(bytes, 0, bytes.Length)
End Using

Answer 2

您可以将文件内容读入字符串，然后像这样使用 AppendAllText：

Imports System.IO
' ...

Dim fileToCopy = Path.Combine(searchDir, result)

'THIS IS WHERE I WANT TO APPEND fileToCopy INTO existingFile
Dim fileContent = File.ReadAllText(fileToCopy)

File.AppendAllText(existingFile, fileContent)

使用Path.Combine 比串联字符串好一点。