16,748
社区成员
发帖
与我相关
我的任务
分享获取某一个文件的上一级目录
请问一下用DELPHI获取某一个文件的上一级目录的名字叫什么如何获取
比如c:\a\b\c\aa.exe
怎么得到aa.exe的上一级目录是c
比如c:\a\b\c\aa.exe
怎么得到aa.exe的上一级目录是c
...全文
请发表友善的回复…
发表回复
syjphp 2014-07-25
- 打赏
- 举报
实际上想获取某个文件的具体地址是在什么地方
比如在文本框里输入aa
具体位置是在c:\a\b\c\d\aa.exe
然后得到的地址是c:\a\b\c\d\
ptvbs 2014-07-25
- 打赏
- 举报
ExtractFilePath
风华渐逝 2014-07-25
- 打赏
- 举报
ExtractFilePath(Application.ExeName)//获取当前程序的目录
lyhoo163 2014-07-25
- 打赏
- 举报
支持楼上：
ExtractFileName(ExcludeTrailingPathDelimiter(ExtractFilePath(s)));
喜人军 2014-07-24
- 打赏
- 举报
ExtractFileName(ExcludeTrailingPathDelimiter(ExtractFilePath(s)))
「已注销」 2014-07-24
- 打赏
- 举报
function fun1(fn: string): string;
var
i,j,k: integer;
begin
result := '';
j := 0;
k := 0;
for i:=length(s) downto 1 do
begin
if s[i] = '\' then
begin
if j = 0 then j := i
else
begin
k := i;
break;
end;
end;
if(j <> 0 and k <> 0) then
result := copy(s,k+1,j-k-1);
end;
end;
「已注销」 2014-07-24
- 打赏
- 举报
ExtractFileName(ExcludeTrailingPathDelimiter(ExtractFilePath(s)))
「已注销」 2014-07-24
- 打赏
- 举报
extractfilepath
syjphp 2014-07-24
- 打赏
- 举报
大家帮帮忙啊
ppowerp 2014-07-24
- 打赏
- 举报
syjphp 2014-07-24
- 打赏
- 举报
可以，DELPHI也可以用正则的方法的吗，不知道如何写
Frank6600 2014-07-24
- 打赏
- 举报
能取到文件完整目录吗？
如果能，将该完整目录用正则取上一级目录即可。
