返回顶部
扶摇直上九万里,展翅高飞岂可待。

获取文件名和所在目录的各种方法

0.获取程序执行文件的所在目录
ExtractFilePath(Application.ExeName)
1.获取不带扩展名的文件名方法,利用ChangeFileExt函数修改传入参数的扩展为空,并不会对文件本身产生变更。
ChangeFileExt(ExtractFileName('D:\KK\Test\123.txt'),'');  //返回 123
2.获取上级文件夹路径的方法。
ExtractFileDir('D:\KK\Test\')+'..';  //返回 D:\KK\
3.获取完整文件或文件夹路径中的驱动器。
ExtractFileDrive('D:\KK\Test\');  //返回 D:
4.获取完整文件名中的路径,最后带"\"。
ExtractFilePath('D:\KK\Test\123.txt');  //返回 D:\KK\
5.获取完整文件名中的路径,最后不带"\"。
ExtractFileDir('D:\KK\Test\123.txt');  //返回 D:\KK
6.获取完整文件名中的文件名称(带扩展名)。
ExtractFileName('D:\KK\Test\123.txt');  //返回 123.txt
7.获取完整文件名中的文件扩展名(带.)。
ExtractFileExt('D:\KK\Test\123.txt');  //返回 .txt
8.获取相对路径。(参数:BaseName:基准文件名,DestName:目标文件名,注意\的使用)
ExtractRelativePath('D:\KK\', 'D:\KK\Test');  //返回 Test
ExtractRelativePath('D:\KK\', 'D:\KK\Test\hi'); //返回 Test\hi
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK'); //返回 ..\..\KK
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK\Test'); //返回 ..\Test
9.获取短文件名,即8+3的DOS格式,文件名8位,扩展名3位。
ExtractShortPathName('D:\KK\Program Files\12345 78 9.txt'); //返回 D:\KK\Progra~1\123457~1.txt
10.获取含有网络驱动器的文件全路径。
ExpandUNCFileName('H:\KK\delphi.exe'); //返回格式为“//机器名\共享名\文件名”
11.检查文件是否与指定的文件名格式匹配,支持通配符。
MatchesMask('D:\KK\Test\123.txt', '*.?x?');  //返回 True

 

posted on 2023-03-07 19:55  六十五度  阅读(319)  评论(0编辑  收藏  举报

导航