請問APP.PATH怎么用,在線等待.謝謝!!!!!!1

Question

我用
 Dim fullpath As String
    If Right(App.Path, 1) = "\" Then ' 若 App.Path ?根目?
        fullpath = App.Path + "filetype.mdb"
    Else
        fullpath = App.Path + "\" + "filetype.mdb"
    End If
Dim CONNSTR As String
'CONNSTR = "PROVIDER=MICROSOFT.JET.OLEDB.3.51;DATA SOURCE=C:\MY DOCUMENTS\1\filetype.mdb"
CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.3.51;DATA SOURCE=fullpath"
RS.CursorLocation = adUseClient
'RS.Open "FILETYPE", CONN, adOpenKeyset, adLockOptimistic出錯:runtime error '-2147467259(80004005)'
     couldn't find file 'c:\my documents\1\1\fullpath
我的程序存放在c:\my cocuments\1\1\

Answer 1

CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.3.51;DATA SOURCE=" & fullpath

Answer 2

fullpath = App.Path + "\" + "filetype.mdb"
这个路径已经是全的了
CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.3.51;DATA SOURCE=" & fullpath &""

Answer 3

If Right(App.Path, 1) <> "\" Then
        fullpath = App.Path
    Else
        fullpath = Left(App.Path, Len(App.Path) - 1)
    End If
    fullpath = fullpath & "\filetype.mdb"

Answer 4

用这个处理吧:
fullpath=iif(right(app.path,1)="\",app.path+"filetype.mdb",app.path+"\filetype.mdb")

Answer 5

fullpath = App.Path + "\" + "filetype.mdb"
CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.3.51;DATA SOURCE=" & fullpath