这段cad病毒处理代码错在那里？

c:\temp111.txt 是文本文件，里面有很多行，每行都是 文件的绝对路径：
c:\111\222\1.lsp
d:\222\333\2.mnl
...
...
lsp和mnl都是文本格式的文件。

我要对其进行处理，



VB code

dim content2 as string
Open "c:\temp111.txt" For Input As #9 打开文件
Do Until EOF(9)
Line Input #9, content2   '把每一行的绝对路径写入content2中
Open content2 For Input As #10  '打开相对应的文件

Open App.Path + "\temp" For Output As #101 '在每隔对应文件的文件夹下建立一个临时文件

Do Until EOF(10) '循环
Print content2, App.Path + "\temp"; '将文本内容读取出来写入到临时文件中
   If content2 = "setq flagx t" Then
   Close 10#  '   到关键字符就关闭，不再写入
   End If
Loop  循环直到文件结束。
FileCopy App.Path + "\temp"  content2 '删除原来的文件  （这句话vb怎么提示语法错误？？？？？？？？？？）
Close #10

FileCopy App.Path + "\temp" & content2