VB调用CAD CAD二次开发

VB调用CAD

 1.FileCopy "yuanzhu.lsp", temstr & "\acad.lsp"
 2.FileCopy "zhudonglunshuju.txt", temstr & "\zhudonglunshuju.txt"
 3.FileCopy "congdonglunshuju.txt", temstr & "\congdonglunshuju.txt"
4. iTask = Shell(temstr & "\acad.exe", vbMaximizedFocus)
 5.pHandle = OpenProcess(SYNCHRONIZE, False, iTask)
 6.ret = WaitForSingleObject(pHandle, INFINITE)
 7.rr = CloseHandle(pHandle)
  8.Kill temstr & "\acad.lsp"
  9.Kill temstr & "\zhudonglunshuju.txt"
  10.Kill temstr & "\congdonglunshuju.txt"

4 5 6 7 调试可以打开CAD，1 2 3 8 9 10 一直提示找不到文件，可是文件确实在那个路径，报错可能是什么原因呢
求指点

引用chatgpt部分指引作答：
对于1、2、3、8、9、10这些操作无法找到文件的问题，可能是以下几个原因导致的：

1、在进行文件复制时，temstr路径下的目录不存在。 解决方法：可以使用如下代码尝试在执行复制前创建目录：

If Dir(temstr, vbDirectory) = "" Then
    MkDir temstr
End If

2、文件名大小写错误或文件扩展名和类型不匹配。
解决方法：需要确定文件名是否正确，以及文件扩展名是否和实际文件类型匹配。可以通过检查文件名拼写，包括大小写、空格等，确保与实际文件一致。

3、文件正在被其他进程占用或没有足够权限读取、写入或删除文件。
解决方法：可以通过自行关闭相关应用程序和进程，或者给与相应文件以足够的读写权限，或者以管理员身份运行应用程序，从而避免出现权限不足的情况。

如果以上处理办法都无法解决问题，请尝试将问题更精细化地描述，并针对报错信息，去CAD官方网站或相关技术论坛上寻求支持，获得更详细的帮助。