如何实现取得当前目录的上一级目录？？？？？(100分)

T

torrentwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #1

如何实现取得当前目录的上一级目录？？？？？

 

R

rockjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #2

var s:string;
s:='../'+GetCurrentDir

 

A

armyjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-11

• #3

好象没有现成的函数，你可以自己写一个。
先取出当前路径，然后进行判断，如果存在上层目录，则返回上层目录的内容。
如果已经是顶层目录，那就看你的需求是什么样然后再确定如何返回。

 

T

torrentwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #4

我现在需要取得，一个平行的目录下的内容，
我试验了下面的函数好像还是没有效果
GetCurrentDir, CHDir, SetCurrentDir .
其中我ChDir('../'+MyCurrentDir)是错误的，如何完成我的要求呢

 

R

realist_78

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #5

你的斜杠就是错的！

 

R

realist_78

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #6

extractfiledir(application.exename)就可以得到当前目录了，你在判断上级就可以了
用'/'在右边查第一个'/'前的路径就是上一级的

 

Z

ZZHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #7

很简单！
试试这个吧，ExpandFileName('..');获得应用程序的上级目录全名。

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-13

• #8

if (MyCurrentDir<>'') and (MyCurrentDir[length(MyCurrentDir)]<>'/') then
MyCurrentDir:=MyCurrentDir+'/'; //MyCurrentDir有可能是c:/tmp这种格式，这句话把它变成c:/tmp/
str:=ExpandFilePath(MyCurrentDir+'../'); //MyCurrentDir已经是c:/tmp/，上级目录就是c:/tmp/../
str就是上级目录呀，

 

T

torrentwang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-16

• #9

多人接受答案了。