文件追加

Question

如何将一个文件夹的文件追加到另一文件夹下同名文件的尾部
需详细的代码

Answer 1

dim sfile as string
dim sdata as stringsfile = dir("c:\dir1\*.txt")do until sfile = ""
    open "c:\dir1\" & sfile for binary as #1
    get #1,,sdata
    close #1 
    open "c:\dir2\" & sfile for append as #1
    put #1,lof(1),sdata
    close #1
    sfile = dir()
loop

Answer 2

Private Sub Command1_Click()
    Dim sFile As String
    Dim sData As String
    Dim sTemp As String
    sFile = Dir("c:\dir1\*.txt")
    
    Do Until sFile = ""
        Open "c:\dir1\" & sFile For Binary As #1
        While Not EOF(1)
            Line Input #1, sData
            sTemp = sTemp & sData & vbCrLf
        Wend
        Close #1
        Open "D:\dir1\" & sFile For Append As #1
        Write #1, sTemp
        Close #1
        sFile = Dir()
    Loop
    MsgBox "文件追加成功！"
End Sub

Answer 3

直接去 dos 下 使用 copy 命令