1.获取不带扩展名的文件名方法，利用ChangeFileExt函数修改传入参数的扩展为空，并不会对文件本身产生变更。
ChangeFileExt(ExtractFileName('D:KKTest123.txt'),''); //返回 123
2.获取上级文件夹路径的方法。
ExtractFileDir('D:KKTest')+'..'; //返回 D:KK
3.获取完整文件或文件夹路径中的驱动器。
ExtractFileDrive('D:KKTest'); //返回 D:
4.获取完整文件名中的路径，最后带""。
ExtractFilePath('D:KKTest123.txt'); //返回 D:KK
5.获取完整文件名中的路径，最后不带""。
ExtractFileDir('D:KKTest123.txt'); //返回 D:KK
6.获取完整文件名中的文件名称(带扩展名)。
ExtractFileName('D:KKTest123.txt'); //返回 123.txt
7.获取完整文件名中的文件扩展名(带.)。
ExtractFileExt('D:KKTest123.txt'); //返回 .txt
8.获取相对路径。(参数：BaseName：基准文件名，DestName：目标文件名，注意的使用)
ExtractRelativePath('D:KK', 'D:KKTest'); //返回 Test
ExtractRelativePath('D:KK', 'D:KKTesthi'); //返回 Testhi
ExtractRelativePath('D:KKTesthi', 'D:KK'); //返回 ....KK
ExtractRelativePath('D:KKTesthi', 'D:KKTest'); //返回 ..Test
9.获取短文件名，即8+3的DOS格式，文件名8位，扩展名3位。
ExtractShortPathName('D:KKProgram Files12345 78 9.txt'); //返回 D:KKProgra~1123457~1.txt
10.获取含有网络驱动器的文件全路径。
ExpandUNCFileName('H:KKdelphi.exe'); //返回格式为“//机器名共享名文件名”
11.检查文件是否与指定的文件名格式匹配，支持通配符。
MatchesMask('D:KKTest123.txt', '*.?x?'); //返回 True
内容来源于网络如有侵权请私信删除
文章来源: 博客园
- 还没有人评论，欢迎说说您的想法！
客服
