Delphi中文件名函数-路径、名称、子目录、驱动器、扩展名


本文整理自网络,侵删。

 

1、文件名函数
  文件名函数可以对文件的名称、所在子目录、驱动器和扩展名等进行操作。下表列出这些函数及其功能。

函数 说明
ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ChangeFileExt() 改变文件的扩展名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8?3格式
MatchesMask() 检查文件是否与指定的文件名格式匹配

ExtractFilePath(FileName:String)
该函数返回路径名,其结尾字符总是“\”

ExtractFileDir(FileName:String)
该函数同样返回路径名,但不包括结尾的字符“\”,除非返回的路径是根目录。

  下面就把这些函数作一一介绍:
⑴ExpandFileName()
  原型:extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);
***南山古桃(nsgtao)的百度空间:http://hi.baidu.com/nsgtao/ ***
  功能:返回文件的全路径(含驱动器、路径)

  参数:FileName:要处理的文件名

  例:ShowMessage(ExpandFileName(Application->ExeName));//显示你的程序文件名,如C:\MyBCB\Sample1.EXE

⑵ExtractFileExt()
  原型:extern PACKAGE AnsiString __fastcall ExtractFileExt(const AnsiString FileName);

  功能:从文件名中抽取扩展名

  参数:FileName:要处理的文件名(全路径)

  例:ShowMessage(ExtractFileExt(Application->ExeName));//显示".exe"

⑶ExtractFileName()
  原型:extern PACKAGE AnsiString __fastcall ExtractFileName(const AnsiString FileName);

  功能:从文件名中抽取不含路径的文件名

  参数:FileName:要处理的文件名

  例:ShowMessage(ExtractFileExt("c:\\Winnt\\SOL.EXE"));//显示"SOL.EXE"


⑷ExtractFilePath()
  原型:extern PACKAGE AnsiString __fastcall ExtractFilePath(const AnsiString FileName);

  功能:从文件名中抽取路径名

  参数:FileName:要处理的文件名

  例:ShowMessage(ExtractFilePath("Winnt\\SOL.EXE"));//显示"Winnt\"

⑸ExtractFileDir()
  原型:extern PACKAGE AnsiString __fastcall ExtractFileDir(const AnsiString FileName);

  功能:从文件名中抽取目录名(和上个函数不同,不包括最后的"\")

  参数:FileName:要处理的文件名

  例:ShowMessage(ExtractFileDir("Winnt\\SOL.EXE"));//显示"Winnt",注意和上个函数的区别

⑹ExtractFileDrive()
  原型:extern PACKAGE AnsiString __fastcall ExtractFileDrive(const AnsiString FileName);

  功能:从文件名中抽取驱动器名

  参数:FileName:要处理的文件名

  例:ShowMessage(ExtractFileDrive("c:\\Winnt\\SOL.EXE"));//显示"c:"

⑺ChangeFileExt()
  原型:extern PACKAGE System::AnsiString __fastcall ChangeFileExt(const System::AnsiString FileName, const System::AnsiString Extension);

  功能:更改文件名的扩展名,不是对真正的文件进行改名,只是对文件名这个字符串进行处理

  参数:FileName:要改名的文件名,Extension:新的扩展名

  例:ShowMessage(ChangeFileExt("c:\\Winnt\\SOL.EXE",".OOO"));//显示"c:\winnt\SOL.OOO"

⑻ExpandUNCFileName()
  原型:extern PACKAGE AnsiString __fastcall ExpandUNCFileName(const AnsiString FileName);

  功能:返回含有网络驱动器的文件全路径,格式为:\\机器名\共享名\文件名

  参数:FileName:要处理的文件名

  例:ShowMessage(ExpandUNCFileName("F:\\Winnt\\SOL.EXE"));/*如果F:是映射的网络驱动器\\NT40\WINNT,则显示"\\NT40\WINNT\SOL.EXE"*/

⑼ExtractRelativePath()
  原型:extern PACKAGE AnsiString __fastcall ExtractRelativePath(const AnsiString BaseName, const AnsiString DestName);

  功能:从文件名中抽取相对路径信息,如"..\sss\ss.asd"这种形式

  参数:BaseName:基准文件名;DestName:目标文件名

  例:ShowMessage(ExtractRelativePath("D:\\Source\\c\\1.123","D:\\Source\\Asm\\dz.asm"));/*显示"..\asm\dz.asm"*/

⑽ExtractShortPathName()
  原型:extern PACKAGE AnsiString __fastcall ExtractShortPathName(const AnsiString FileName);

  功能:把文件名转换为DOS的8、3格式

  参数:FileName:要处理的文件名

  例:ShowMessage(ExtractShortPathName("E:\\Program Files\\Dual Wheel Mouse\\4dmain.exe"));/*显示"E:\Progra~1\dualwh~1\4dmain.exe"*/

⑾MatchesMask()
  原型:extern PACKAGE bool __fastcall MatchesMask(const AnsiString Filename, const AnsiString Mask);

  功能:检查文件是否与指定的文件名格式匹配

  参数:FileName:要处理的文件名;Mask:文件名格式,支持通配符

  例:ShowMessage(MatchesMask("Lxf.exe","*.?x?));//显示"true"

相关阅读 >>

Delphi application.title在win7下失效了?

Delphi 在memo查找字符并定位

Delphi clientdataset 与fdmemtable 创建 字段与追加记录

Delphi xe6 string转memorystream

Delphi 创建快捷方式的单元文件

Delphi 过卡巴2009和沙盘启发杀毒的Delphi源代码

Delphi 检测文件是否被占用

Delphi 虚拟键码对照表

设定Delphi环境选项

Delphi 取16进制字符的10进制的integer值

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...