Question

vb 路径/文件访问错误

这段程序中运行时FileCopy ModelPath, Aimpath段显示“路径/文件访问错误”，怎么把那？？急求！
Private Sub btnExcel_Click()
If InStr(myFileTitle, ".xls") <> 0 Then
n = MsgBox("尚无统计信息！", 0 + 64 + 0, "操作失败")
Exit Sub
End If
ModelPath = App.path + "\model\Result.xls"
Aimpath = Replace(path, ".", "_" + myFileTitle + ".")
FileCopy ModelPath, Aimpath
n = MsgBox("文件成功生成！" + vbCrLf + "统计信息文件位于源文件夹下！", 0 + 64 + 0, "操作成功")
End Sub
怎么改呢？非常感谢！

Answer 1

路径/文件访问错误（错误 75）：
在文件访问或磁盘访问操作期间，例如，Open、MkDir、ChDir 或
RmDir，操作系统不能连接路径和文件名连接。此错误有以下的原因和解决方法：

1）文件指定的格式不正确。
文件名可以包含完整限定的（绝对）或相对的路径。完整限定的路径以驱动器名称（如果路径在另一台驱动器上）为开始，并且列出从根目录到文件的路径。任何非完整限定的路径都是相对于当前驱动器和目录的。

2）试图保存到只读文件上。
修改目标文件的只读属性或以其他文件名保存。

3）在顺序 Output 或 Append 模式下试图打开只读文件。
以 Input
方式打开文件，或是要修改文件的只读属性。

详细信息，可选取有问题的项目，并按下 F1 键。

Answer 2

FileCopy ModelPath, Aimpath 中的 Aimpath 只是一个路径，而没有文件名。
比如Aimpath="c:\1.xls"