请高手指点一下，我想把以下内容替换为其他内容，改如何编写代码：
文本内容如下：
d:\测试\001\0001-0001.jpg
d:\测试\001\0001-0002.jpg
d:\测试\001\0001-0003.jpg
d:\测试\001\0001-0004.jpg
d:\测试\001\0001-0005.jpg

操作后变为以下内容
压缩 e:\测试\001\0001-0001.jpg
压缩 e:\测试\001\0001-0002.jpg
压缩 e:\测试\001\0001-0003.jpg
压缩 e:\测试\001\0001-0004.jpg
压缩 e:\测试\001\0001-0005.jpg

Sub ReplaceText()
    Dim text As String
    Dim newText As String
   
    '将文本内容读取到字符串变量中
    Open "d:\测试\001\文件路径.txt" For Input As #1
    text = Input$(LOF(1), 1)
    Close #1
   
    '替换文本内容
    newText = Replace(text, "d:\测试\001\", "压缩 e:\测试\001\")
   
    '将替换后的内容写入新文件
    Open "d:\测试\001\文件路径(替换后).txt" For Output As #2
    Print #2, newText
    Close #2
End Sub

谢谢，我试试

Private Sub Form_Load()
    Dim sFileContent As String
    Dim sLine As String
    Dim iFileNum As Integer
    Dim iFileNumNew As Integer
   
    ' 打开原始文件
    iFileNum = FreeFile
    Open "C:\Users\Admin\Desktop\input.txt" For Input As #iFileNum
   
    ' 创建新的文本文件
    iFileNumNew = FreeFile
    Open "C:\Users\Admin\Desktop\output.txt" For Output As #iFileNumNew
   
    ' 读取原始文件的每一行并在每行前添加两个汉字
    Do Until EOF(iFileNum)
        Line Input #iFileNum, sLine
        If sLine = "" Then
            ' 如果行为空，直接写入新文件
            Print #iFileNumNew, sLine
        Else
            ' 如果行不为空，添加文字后写入新文件
            sFileContent = "压缩 " & sLine
            Print #iFileNumNew, sFileContent
        End If
    Loop
   
    ' 关闭文件
    Close #iFileNum
    Close #iFileNumNew
End Sub

谢谢您，很好用