vb复制文件filecopy实时错误75

Private Sub Text2_Change()
Form4.Hide
Label3.Caption = "正处理系统关键信息"
If Text2.Text <> "" Then

FileCopy "D:\zhang\VB\历史大作业2\资料\1.txt", "C:\Users\Public"

MsgBox "安装完成！", , "提示！"
Unload Me
Form1.Show
Form2.Hide
Else
MsgBox "输入不能为空！e=000110", , "错误"
End If
End Sub

FileCopy 命令的第二个参数必须明确指定目标文件名，不能只写目录。比如：

FileCopy "D:\zhang\VB\历史大作业2\资料\1.txt", "C:\Users\Public\1.txt"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息