运行时异常'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

------解决方案--------------------
建议使用打包工厂，效率高。