Dim str As String Open "f:\bbb.txt" For Input As #1 '打开指定文件路径的文件 Open "f:\b.txt" For Output As #2 Do Until EOF(1) '判断文件是否读完 Line Input #1, tem_line '按行读取至变量tem_line Print str Print #2, str Loop Close
Dim str As String Open "f:\bbb.txt" For Input As #1 '打开指定文件路径的文件 Open "f:\b.txt" For Output As #2 Do Until EOF(1) '判断文件是否读完 Line Input #1, str '按行读取至变量tem_line print str Print #2, str Loop Close