追加到VBA日志文件的第一行，而不是最后一行

Sub AppendToLogFile()
    Dim logFilePath As String
    Dim logFileName As String
    Dim fso As Object
    Dim logFile As Object
    Dim fileContent As String
    Dim newContent As String
    
    ' 设置日志文件路径和文件名
    logFilePath = "C:\Logs\"
    logFileName = "VBA_Log.txt"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 打开日志文件
    Set logFile = fso.OpenTextFile(logFilePath & logFileName, 1)
    
    ' 读取文件内容
    fileContent = logFile.ReadAll
    
    ' 关闭日志文件
    logFile.Close
    
    ' 要追加的内容
    newContent = "This is the new first line." & vbCrLf
    
    ' 将新内容添加到文件内容的开头
    newContent = newContent & fileContent
    
    ' 创建新的日志文件并写入修改后的内容
    Set logFile = fso.CreateTextFile(logFilePath & logFileName, True)
    logFile.Write newContent
    
    ' 关闭日志文件
    logFile.Close
    
    ' 释放对象
    Set logFile = Nothing
    Set fso = Nothing
    
    MsgBox "内容已成功追加到日志文件的第一行。"
End Sub