基於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");