只能在运行时用app.path才能确定其启动路径.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 16 行

你 可 以 用 下 面 的 函 数 判 断 你 的 程 序 是 运 行 在 进 程 环 境 中 ， 还 是 已 经 编 译 为 EXE： 
    Function RunningInIde() As Boolean 
     On Error Resume Next 
     Err.Clear 
     Debug.Print 1 / 0 
     RunningInIde = (Err <> 0) 
    End Function 
    然 后 ， 你 可 以 这 样 做 ： 
    If RunningInIde() Then 
     Data1.DatabaseName = "d:\myprj\test.mdb" 
    Else 
     Data1.DatabaseName = App.Path + "\test.mdb" 
    End If 
<END>