在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");