奇怪的问题？？？

Question

代码生成器或链接器中出现未知的错误。要查看错误信息吗？？
这个时候我点了yes。然后出现如下信息：Microsoft (R) Incremental Linker Version 6.00.8168
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.ForEnrol1.OBJ : error LNK2001: unresolved external symbol ___vba@00000000
E:\demo\管理程序\工程2.exe : fatal error LNK1120: 1 unresolved externals
我的代码在编译成可执行文件的时候出现了如上的错误提示！！给仁兄慈姐帮帮忙呀！！

Answer 1

Microsoft (R) Incremental Linker Version 6.00.8168
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.ForEnrol3.OBJ : error LNK2001: unresolved external symbol ___vba@00000000
E:\卢志勇\demo\管理程序\工程2.exe : fatal error LNK1120: 1 unresolved externals这个是什么呢！！？
我修改了好几次了！！我给源代码给你。你帮我查好吗？？给电邮；

Answer 2

你打service pack了吗？
给我看看[email protected]

Answer 3

我做成了自解压文件，是dos界面的。

Answer 4

to : bdhh(Silent) 你收到了我发给你的邮件吗？？？？

Answer 5

to：JennyVenus() 我没有使用外部函数。有一个问题就是我在vb下运行就可以正常
运行，就是不能编译成可执行文件。

Answer 6

Public Function MkDirs(ByVal PathIn As String) As Boolean
'该函数用来在你指定的地方建立一个指定的目录，如果没有指定地方，就在程式所
'在的目录下建立你指定名字的目录。如果你指定的路径不存在，就从父目录到子目录
'为你重新创建一条路径。直到你要创建的目录。
'如果你创建成功就返回true否则就返回false
  Dim nPos As Long
  MkDirs = True '先假设成功。
  If Right$(PathIn, 1) <> "\" Then PathIn = PathIn + "\"
     nPos = InStr(1, PathIn, "\")
     Do While nPos > 0
       If Dir$(Left$(PathIn, nPos), vbDirectory) = "" Then
       On Error GoTo Failed
       MkDir Left$(PathIn, nPos)
       On Error GoTo 0
       End If
       nPos = InStr(nPos + 1, PathIn, "\")
     Loop
   Exit Function
Failed:
   MkDirs = False
End Function就这个函数用到了外部函数。这是我在网络上找到的。但这不是问题呀！！

Answer 7

原因很奇怪，在vb的模块文件中我定义了一个public函数，我在工程文件中引用的时候使用了模块名.函数名的方式。结果不能编译成可执行文件。但是可以在vb的模式下运行文件（就是点vb的那个运行按钮或者是按F9）。