VB程序有问题求指点

来源：百度知道 编辑：UC知道 时间：2024/06/10 18:55:53
Private Sub Form_Load()

filename = Dir("e:\tqfx-1\*.G04")
fn1 = FreeFile
outfile = "e:\tqfx-1\ww1\04.txt"

Open outfile For Output As #fn1

If (filename <> "") Then
fn2 = FreeFile
Open "e:\tqfx-1\" & filename For Input As #fn2
Do Until EOF(fn2)
Line Input #fn2, filename
Print #fn1, filename
Loop
End If
Loop
End If
Close #fn2
filename = Dir
Close #fn1
End Sub

运行是通过，生成的文本却是空的，请高手指点
谢谢一楼的回答，按照你的改了后提示错误说文件太多，只有13个啊
错误提示行指的fn2 = FreeFile

Private Sub Form_Load()

FileName = Dir("e:\tqfx-1\*.G04")
fn1 = FreeFile
outfile = "e:\tqfx-1\ww1\04.txt"

Open outfile For Output As #fn1

While FileName <> ""
fn2 = FreeFile
Open "e:\tqfx-1\" & FileName For Input As #fn2
Do Until EOF(fn2)
Line Input #fn2, a
Print #fn1, a
Loop

Close #fn2
FileName = Dir
Wend
Close #fn1

End Sub

Line Input #fn2, filename
Print #fn1, filename
这两句中的变量改为其他的变量，不要用 filename