基于BCB的文件操作

在BCB中也提供了文件操作的函数，这些函数的功能和前面所介绍的大致相同，但这类函数和BCB关系紧密，能使用BCB中的AnsiString等数据类型，在BCB中用这种方式的文件操作是最方便的，下面我就把这种文件操作详细介绍。

在BCB提供的这组文件操作函数中，可分为三种类型，就是：1、文件名函数，2、文件管理函数；3、文件I/O函数。

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

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

下面就把这些函数作一一介绍：

⑴ExpandFileName()
原型：extern PACKAGE AnsiString __fastcall ExpandFileName(const AnsiString FileName);

功能：返回文件的全路径(含驱动器、路径)

参数：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"


--------------------------------------------------------------------------------

2、文件管理函数
这类函数包括设置和读取驱动器、子目录和文件的有关的各种操作，下表列出这类操作常用的函数及其功能。

函数 功能
CreateDir() 创建新的子目录
DeleteFile() 删除文件
DirectoryExists() 判断目录是否存在
DiskFree() 获取磁盘剩余空间
DiskSize() 获取磁盘容量
FileExists() 判断文件是否存在
FileGetAttr() 获取文件属性
FileGetDate() 获取文件日期
GetCurrentDir() 获取当前目录
RemoveDir() 删除目录
SetCurrentDir() 设置当前目录

下面就把这些函数作一一介绍：

⑴CreateDir()
原型：extern PACKAGE bool __fastcall CreateDir(const System::AnsiString Dir);

功能：建立子目录，如果成功返回true，否则返回false

参数：Dir:要建立的子目录的名字

例：Create("ASM");//在当前目录下建立一个名为ASM的子目录

⑵DeleteFile()
原型：extern PACKAGE bool __fastcall DeleteFile(const System::AnsiString FileName);

功能：删除文件，如果成功返回true，否则返回false

参数：FileName:要删除的文件名

例：if(OpenDialog1->Execute())DeleteFile(OpenDialog1->FileName);

⑶DirectoryExists()
原型：extern PACKAGE bool __fastcall DirectoryExists(const System:: AnsiString Name);

功能：检测目录是否存在，如果存在返回true，否则返回false

参数：Name:要检测的目录名

例：if(!DirectoryExists("ASM"))CreateDir("ASM");//如果ASM这个目录不存在则创建之

⑷DiskFree()
原型：extern PACKAGE __int64 __fastcall DiskFree(Byte Drive);

功能：检测磁盘剩余空间，返回值以字节为单位，如果指定的磁盘无效，返回-1

参数：Drive：磁盘的代号，0表示当前盘, 1=A,2=B,3=C 以此类推

例：ShowMessage(DiskFree(0));//显示当前盘的剩余空间

⑸DiskSize()
原型：extern PACKAGE __int64 __fastcall DiskSize(Byte Drive);

功能：检测磁盘容量，返回值以字节为单位，如果指定的磁盘无效，返回-1

参数：Drive：磁盘的代号，0表示当前盘, 1=A,2=B,3=C 以此类推

例：ShowMessage(DiskFree(0));//显示当前盘的容量

⑹FileExists()
原型：extern PACKAGE bool __fastcall FileExists(const AnsiString FileName);

功能：检测文件是否存在，如果存在返回true，否则返回false

参数：FileName:要检测的文件名

例：if(FileExists("AAA.ASM"))DeleteFile("AAA.ASM");

⑺FileGetAttr()
原型：extern PACKAGE int __fastcall FileGetAttr(const AnsiString FileName);

功能：取得文件属性，如果出错返回-1

返回值如下表，如果返回$00000006表示是一个具有隐含和系统属性的文件(4+2)

常量 值 含义
faReadOnly $00000001 只读文件
faHidden $00000002 隐含文件
faSysFile $00000004 系统文件
faVolumeID $00000008 卷标
faDirectory $00000010 目录
faArchive $00000020 归档文件

例：if(FileGetAttr("LLL.TXT")&0x2)ShowMessage("这是一个有隐含属性的文件");

与此对应的有FileSetAttr() ，请自已查阅帮助系统


⑻FileGetDate()
原型：extern PACKAGE int __fastcall FileGetDate(int Handle);

功能：返回文件的建立时间到1970-1-1日0时的秒数

参数：Handle:用FileOpen()打开的文件句柄。

例：

int i=FileOpen("C://autoexec.bat",fmOpenRead);
ShowMessage(FileGetDate(i));
FileClose(i);

与此对应的有FileSetDate()，请自已查阅帮助系统

⑼GetCurrentDir()
原型：extern PACKAGE AnsiString __fastcall GetCurrentDir();

功能：取得当前的目录名

例：ShowMessage(GetCurrentDir());

⑽RemoveDir()
原型：extern PACKAGE bool __fastcall RemoveDir(const AnsiString Dir);

功能：删除目录，如果成功返回true，否则返回false

参数：Dir:要删除的目录名

例：if(DiectoryExists("ASM"))RemoveDir("ASM");

⑾SetCurrentDir()
原型：extern PACKAGE bool __fastcall SetCurrentDir(const AnsiString Dir);

功能：设置当前目录，如果成功返回true，否则返回false

参数：Dir:要切换到的目录名

例：SetCurrentDir("C://WINDOWS");


--------------------------------------------------------------------------------

3、文件I/O函数
这类函数完成对文件的读写相关的操作，这种类型的操作和C的基于I/O文件操作类似，下表列出这类操作常用的函数及其功能。

FileOpen() 打开文件
FileClose() 关闭文件
FileRead() 读文件
FileSeek() 文件定位
FileWrite() 写文件
FileCreate() 创建文件

下面就对这些函数作详细介绍。

⑴FileOpen()
原型：extern PACKAGE int __fastcall FileOpen(const AnsiString FileName, int Mode);

功能：打开文件，如果成功返回其句柄，否则返回-1

参数：FileName:要打开的文件名；Mode：打开的方式，取值如下表，可用"或"("|")运算符连接。

常量 值 说明
-------------------------------------------------------------
fmOpenRead 0 以只读属性打开
fmOpenWrite 1 以只写属性打开
fmOpenReadWrite 2 以读/写属性打开
fmShareCompat 0 兼容FCB方式(汇编中有相应的DOS功能调用，感兴趣自已查阅相关资料)
fmShareExclusive 16 共享方式：以独占方式打开，在关闭以前，别人不能访问
fmShareDenyWrite 32 共享方式：拒绝写访问
fmShareDenyRead 48 共享方式：拒绝读访问
fmShareDenyNone 64 共享方式：无限制，允许读写
例：int i=FileOpen("C://WINDOWS//Win.ini",fmOpenReadWrite|fmShareExclusive);

⑵FileClose()
原型：extern PACKAGE void __fastcall FileClose(int Handle);

功能：关闭打开的句柄。

参数：Handle:要关闭的句柄

例：FileClose(i);

⑶FileRead()
原型：extern PACKAGE int __fastcall FileRead(int Handle, void *Buffer, int Count);

功能：读文件，返回实际读取的字节数，句柄必须首先由FileOpen或FileCreate创建。

参数：Handle:要读取的句柄；Buffer:存放读取的数据的缓冲区；Count:想读取的字节数

例：char str[400];FileRead(hnd1,str,400);

⑷FileSeek()
原型：extern PACKAGE int __fastcall FileSeek(int Handle, int Offset, int Origin);

功能：移动文件读取指针，成功返回文件指针的位置，失败返回-1

参数：Handle:相关联的句柄；Offset:移动的量；Orgin:移动的基准，0=文件头，1=当前位置，2=文件尾。

例：ShowMessage(FileSeek(hnd1,0,2));//取得文件的长度

⑸FileWrite()
原型：extern PACKAGE int __fastcall FileWrite(int Handle, const void *Buffer, int Count);

功能：写文件，返回实际写入的字节数，句柄必须首先由FileOpen或FileCreate创建。

参数：Handle:要写入的句柄；Buffer:存放写入数据的缓冲区；Count:想写入的字节数

例：char str[]="I Love You";FileWrite(hnd1,str,strlen(str));

⑹FileCreate()
原型：extern PACKAGE int __fastcall FileCreate(const AnsiString FileName);

功能：创建文件。成功返回其句柄，否则返回-1

参数：FileName:要创建的文件名

例：if(!FileExists("KC.C"))hnd1=FileCreate("KC.C");