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

VB技巧问答10000例 VB技巧问答10000例

你 可 以 用 下 面 的 函 数 判 断 你 的 程 序 是 运 行 在 进 程 环 境 中 ， 还 是 已 经 编 译 为 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>