运行时异常'76' 路径未找到
运行时错误'76' 路径未找到
我的程序都不是打包安装使用的，只是将exe文件考到客户端，所以需要将一些系统文件也复制到客户端的系统文件夹中，
以前都要是手动复制，最近在程序中写入了一段代码，可以判断文件是否存在然后自动复制，可是却在个别的计算机上提示错误
当我将这台客户端安装上VB准备看看那有问题时，却又可以运行，但一但卸下VB就还是出现“运行时错误‘76’路径未找到”
真是不知道怎么办好了，请各位帮帮忙吧，我出错的代码如下
'获得本地路径
GetApp = App.Path: If Right$(GetApp, 1) <> "\" Then GetApp = GetApp & "\"
'获得系统路径
Dim Buffer As String * 20
Dim WinApp As String
Call GetWindowsDirectory(Buffer, 20)
WinApp = Left(Buffer, InStr(Buffer, Chr(0)) - 1) & "\system32"
If Dir(WinApp & "\mscomct2.ocx") = "" Then
FileCopy WinApp & "\system32\mscomct2.ocx", WinApp & "\mscomct2.ocx"
End If
If Dir(WinApp & "\MSVBVM60.DLL") = "" Then
FileCopy WinApp & "\system32\MSVBVM60.DLL", WinApp & "\MSVBVM60.DLL"
End If
If Dir(WinApp & "\TABCTL32.OCX") = "" Then
FileCopy WinApp & "\system32\TABCTL32.OCX", WinApp & "\TABCTL32.OCX"
End If
------最佳解决方案--------------------
建议使用打包工厂，效率高。
------其他解决方案--------------------
我刚上传了一个打包工厂的安装包，如果你需要可以去下载。
http://angelia_0412.download.****.net/
------其他解决方案--------------------
我不想打包，因为打包后客户端都要安装，在程序有更改时还需要卸了再重新装，我现在这样只需要重新复制就可以了
------其他解决方案--------------------
问题，你的控件复制完还要注册啊~~~
那个打包程序也可以只大动态库和控件，也可以在拷贝同时实现注册。
------其他解决方案--------------------
你也可以自己写个批处理文件，拷贝动态库和控件，再注册。
但是就有个不同系统系统路径不一样的问题。在拷贝和程序调用时可能路径不对。解决这个问题的方法就是在编程序时把控件和动态库都拷到C盘根目录下再加到程序里。
------其他解决方案--------------------
有点晕呀，没用过打包软件呀
------其他解决方案--------------------
用了你就知道无限好了，很节省时间的。我在5年前一直用VB自带的打包工具，后来用过一次打包工厂，就彻底放弃VB自带的工具了。
------其他解决方案--------------------
谢谢了
------其他解决方案--------------------
我进了你说的那里，但是下载不了啊
我的程序都不是打包安装使用的，只是将exe文件考到客户端，所以需要将一些系统文件也复制到客户端的系统文件夹中，
以前都要是手动复制，最近在程序中写入了一段代码，可以判断文件是否存在然后自动复制，可是却在个别的计算机上提示错误
当我将这台客户端安装上VB准备看看那有问题时，却又可以运行，但一但卸下VB就还是出现“运行时错误‘76’路径未找到”
真是不知道怎么办好了，请各位帮帮忙吧，我出错的代码如下
'获得本地路径
GetApp = App.Path: If Right$(GetApp, 1) <> "\" Then GetApp = GetApp & "\"
'获得系统路径
Dim Buffer As String * 20
Dim WinApp As String
Call GetWindowsDirectory(Buffer, 20)
WinApp = Left(Buffer, InStr(Buffer, Chr(0)) - 1) & "\system32"
If Dir(WinApp & "\mscomct2.ocx") = "" Then
FileCopy WinApp & "\system32\mscomct2.ocx", WinApp & "\mscomct2.ocx"
End If
If Dir(WinApp & "\MSVBVM60.DLL") = "" Then
FileCopy WinApp & "\system32\MSVBVM60.DLL", WinApp & "\MSVBVM60.DLL"
End If
If Dir(WinApp & "\TABCTL32.OCX") = "" Then
FileCopy WinApp & "\system32\TABCTL32.OCX", WinApp & "\TABCTL32.OCX"
End If
------最佳解决方案--------------------
建议使用打包工厂，效率高。
------其他解决方案--------------------
我刚上传了一个打包工厂的安装包，如果你需要可以去下载。
http://angelia_0412.download.****.net/
------其他解决方案--------------------
我不想打包，因为打包后客户端都要安装，在程序有更改时还需要卸了再重新装，我现在这样只需要重新复制就可以了
------其他解决方案--------------------
问题，你的控件复制完还要注册啊~~~
那个打包程序也可以只大动态库和控件，也可以在拷贝同时实现注册。
------其他解决方案--------------------
你也可以自己写个批处理文件，拷贝动态库和控件，再注册。
但是就有个不同系统系统路径不一样的问题。在拷贝和程序调用时可能路径不对。解决这个问题的方法就是在编程序时把控件和动态库都拷到C盘根目录下再加到程序里。
------其他解决方案--------------------
有点晕呀，没用过打包软件呀
------其他解决方案--------------------
用了你就知道无限好了，很节省时间的。我在5年前一直用VB自带的打包工具，后来用过一次打包工厂，就彻底放弃VB自带的工具了。
------其他解决方案--------------------
谢谢了
------其他解决方案--------------------
我进了你说的那里，但是下载不了啊