菜鸟的vb问题：put#，请各位大侠赐教

说明一下

cd1是CommonDialog的对象
ra是全局变量，是一个路径
目的是文件二进制复制

Dim b As String * 1, i As Integer

If (Not Trim(cd1.FileName) = "") And (Not Trim(ra) = "") Then
Set fso = CreateObject("scripting.filesystemobject")
Set a = fso.createtextfile(cd1.FileName)
Open cd1.FileName For Binary As #1
Open ra For Binary As #2

For i = 1 To LOF(2)
Get #2, , b
Put #1, , b
Next i
End If
Close #1, #2

执行到 Put #1, , b 时候提示出错

但是

我把代码改成

For i = 1 To LOF(2)
‘Get #2, , b
’Put #1, , b

Get #1, , b
MsgBox b
Next i

就能运行起来，说明这不是路径的错啊？

那位大侠帮我看看那里错了，小弟感激不尽

给你调试了一下，问题出在我注释的那句里'Set a = fso.createtextfile(Cd1.FileName)，你这是产生了一个空文件，在系统启动后产生的，你在c盘放1.txt和2.txt，然后运行，就知道怎么回事了

Private Sub Command2_Click()
Dim b As String * 1, i As Integer
Cd1.FileName = "c:\1.txt"
ra = "c:\2.txt"
If (Not Trim(Cd1.FileName) = "") And (Not Trim(ra) = "") Then
Set fso = CreateObject("scripting.filesystemobject")
'Set a = fso.createtextfile(Cd1.FileName)
Open Cd1.FileName For Binary As #1
Open ra For Binary As #2

For i = 1 To LOF(2)
Get #1, , b
Put #2, , b
Next i
End If
Close #1, #2

End Sub