一个关于使用相对路径的问题,对就给分,不够另加帖.

Question

我编了一个图书管理,可使用的是绝对路径,很不方便,请问怎么使用相对路径?

Answer 1

.\表示本路径
..\表示前一级路径
比如现在是c:\winnt\system
.\就表示c:\winnt\system
..\就表示c:\winnt
..\system32就表示就表示c:\winnt\system32

Answer 2

dim str as string
str=app.path   '当前路径
if right(str,1)<> "\" then
   str=str+"\"           '处理了根目录的情况
end if

Answer 3

Private Sub Form_DblClick()
Print App.Path
file = Dir(App.Path + "\", vbNormal)
Do While file <> ""
    Print file     ' 打印出当前目录的所有文件
    file = Dir
Loop
file = Dir(App.Path + "..\", vbDirectory)
Do While file <> ""
    Print file      '打印出上个目录的所有目录
    file = Dir
Loop
End Sub

Answer 4

我用data控件连的数据库,
可不能改变目录,
我想问的是怎么用相对路径解决数据库存放和连接问题.
多谢大虾们了.

Answer 5

Private Sub Form_DblClick()
Data1.DatabaseName = App.Path + "\..\new.mdb" '比如说要用上级目录的new.mdb文件(相对于当前目录app.path)
End Sub

Answer 6

如果用了相对目录,还用不用data控件

Answer 7

用APP.PAtH取得系统的运行目录。

Answer 8

可是我生成exe文件时,还是不能将数据库连上,
还是找不到目录.

Answer 9

app.path 就是exe文件所在的目录,你检查一下相对路径对不对