vb中filecopy choicedfile,destfile
PrivateSubcmdcopy_Click()DimdestfileAsStringdestfile=InputBox("请输入复制目的的文件","复制文件")Ifd...
Private Sub cmdcopy_Click()
Dim destfile As String
destfile = InputBox("请输入复制目的的文件", "复制文件")
If destfile <> " " Then
FileCopy choicedfile, destfile
End If
End Sub
运行后,我在对话框中输入"111.txt"或者"f:\"
提示“filecopy choicedfile,destfile”有错误 展开
Dim destfile As String
destfile = InputBox("请输入复制目的的文件", "复制文件")
If destfile <> " " Then
FileCopy choicedfile, destfile
End If
End Sub
运行后,我在对话框中输入"111.txt"或者"f:\"
提示“filecopy choicedfile,destfile”有错误 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询