BCB文件操作函数大全.docVIP

代码如下：procedure TForm1.N12Click(Sender: TObject); //建立文件夹 CreateDir; CreateDirectory; ForceDirectories var ??dir: string; ??Bool: Boolean; begin ??dir := f:\test; ??if not DirectoryExists(dir) then //先判断文件夹在不在，不在再创建 ????Bool:=CreateDir(dir);? //返回 Boolean ????if Bool then ????ShowMessage(建立文件夹成功) ????else ????ShowMessage(建立文件夹失败); ? ??//也可以直接用API: ??//CreateDirectory(PChar(dir),nil);? //返回 Boolean ? ??//如果缺少上层目录将自动补齐: ??//dir := f:\test\CodeGear\Delphi\巅枫; ??//ForceDirectories(dir);? //返回 Boolean end; ? 下面进行函数分析： function CreateDir(const Dir: string //文件夹路径的字符串，如f:\test，不含\ ??????????????????): Boolean;?? //返回布尔值，成功则true，否则false Delphi语法结构: function DirectoryExists(const Directory: string): Boolean; C++语法结构: extern PACKAGE bool __fastcall DirectoryExists(const AnsiString Directory); 描述: 调用DirectoryExists 为了确定是否由参数指定的目录是否存在。如果目录存在，则函数返回true。如果目录不存在，函数返回false。 如果一个完整的名称被输入，DirectoryExists沿着指定的路径搜寻目录。反之，名称参数解释为从当前目录下的一个相对路径名。 FileCtrl unit (只适应于Windows) 也包含一个DirectoryExists函数.然而, FileCtrl版本被弃用, 并且SysUtils版本被优先,虽然代码不需要跨平台. CreateDir()函数为创建文件夹 如： ?? if not DirectoryExists(c:\5) then????? CreateDir(c:\5); 也可以 ?? if not DirectoryExists(c:\5\) then????? CreateDir(c:\5\); ExtractFileDrive ：返回完整文件名中的驱动器，如C: ExtractFilePath：返回完整文件名中的路径，最后带“/”，如C:\test\ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如C:\testExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如mytest.docExtractFileExt 返回完整文件名中的文件扩展名（带.），如.docExtractRelativePath ： 返回相对路径，定义如下：function ExtractRelativePath(const BaseName, DestName: string): string; 使用测试下如：SysUtils.ExtractRelativePath(C:\test,C:\Test\TestRelativePath):返回TestRelativePathSysUtils.ExtractRelativePath(C:\Test\TestRelativePath,C:\test):返回..\TestRelativePath SysUtils.ExtractRelativePath(C:\Test\TestRelativePath\,C:\test):返回..\..\TestRelativePath ExtractShortPathName :返回短文件名，即8+3，文件名长八位，扩展名为3号，为保持DOS系统兼容而存在BCB 中也提供了文件操作的函数，这些函数的功能和前面所介绍的大致相同，但这类函数和BCB 关系紧 密，能使用BCB 中的AnsiString 等数据类型，在BCB 中用这种方式的文件操作是最方便的，下面我就把这种 文件操作详细介绍。 在BCB 提供的这组文件操作