请教FileCopy和Kill后面接变量怎么接？

sunny　发表于：2011-03-01 10:09:17 　

Private Sub shenhe_Click()

Dim rs As New ADODB.Recordset, sql As String, a As String,b As String

a = "\\srv-lj-01\Application\Express & P.O\Document_Control\lighting\lingjian\"

sql = "select * from lingjianbiao where bianhao='" & Me.bianhao & "'"
rs.Open sql,Z_CnnDB_S, 1, 3, 512

Do Until rs(1).EOF = True
If rs!err <> "无" And Not IsNull(rs!eer) Then
FileCopy a & rs!eer, b

Kill a & rs!eer
End If

end sub

FileCopy 和 Kill 后面接的要怎么加符号才行？

煮江品茶发表于：2011-03-01 12:36:01

不需要什么符号了，可用msgbox看看地址和文件名是否正确，另外共享文件夹是否有密码。

sunny 发表于：2011-03-01 14:26:52

谢谢

FileCopy a & rs!eer, b & rs!eer

总记录：2篇页次：1/1 9 1 :

Access交流中心