Open "xxx" For Input As #1 ’位置自己添打开文件
Open "e:\a.doc" For Output As #2
Do While Not EOF(1) '循环读取，直到文件结束
Line Input #1, strTemp '读取一行内容到变量strTemp
Print #2, strTemp '将读入的变量值写入另一文件
Loop
Close #1 '关闭文件
Close #2 '关闭文件
直接用文件复制：
filecopy "c:\1.doc" ,"d:\2.doc"
第一个是源文件，第二个是目标文件，
与其如此做法，不如直接复制文件更直接。
当然，你出题的目的可能不是这样.
你这样 还不如复制文件呢
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024