写程序时，怎样使以后编译后路径不会出现错误？有会么好办法？详细一点好吗？

Question

运用 App.Path ，不要用绝对路径。

Answer 1

比如：你的程序目录里有一个文件名为AAA.TXT，那么就可以这样表示路径：
dim strapp as string
strapp=app.path&"aaa.txt"

Answer 2

app.path & "\文件名"(如果app.path="c:\"当然就不用再加文件名前面的\了。 )

Answer 3

Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\aa.mdb;Jet OLEDB:Database Password=aa"

Answer 4

sub form_load
control1.filename=app.path & iif(right(app.path,1)="\","","\") & "filename"
end sub