Delphi文件、文件夹常用操作.docVIP

Delphi文件、文件夹常用操作 RemoveDirectory //获取当前文件夹 GetCurrentDir //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory //获取指定驱动器的当前路径名 GetDir //文件改名 RenameFile //建立文件夹 CreateDir; CreateDirectory; ForceDirectories //删除空文件夹 RemoveDir; RemoveDirectory //建立新文件 FileCreate //获取当前文件的版本号 GetFileVersion //获取磁盘空间 DiskSize; DiskFree //搜索文件 FindFirst; FindNext; FindClose //读取与设置文件属性 FileGetAttr; FileSetAttr //获取文件的创建时间 FileAge; FileDateToDateTime Delphi代码 //判断文件是否存在 FileExists var f: string; begin f := c:\temp\test.txt; if not FileExists(f) then begin //如果文件不存在 end; end; -------------------------------------------------------------------------------- //判断文件夹是否存在 DirectoryExists var dir: string; begin dir := c:\temp; if not DirectoryExists(dir) then begin //如果文件夹不存在 end; end; -------------------------------------------------------------------------------- //删除文件 DeleteFile; Windows.DeleteFile var f: string; begin f := c:\temp\test.txt; //DeleteFile(f); //返回 Boolean //或者用系统API: Windows.DeleteFile(PChar(f)); //返回 Boolean end; -------------------------------------------------------------------------------- //删除文件夹 RemoveDir; RemoveDirectory var dir: string; begin dir := c:\temp; RemoveDir(dir); //返回 Boolean //或者用系统 API: RemoveDirectory(PChar(dir)); //返回 Boolean end; -------------------------------------------------------------------------------- //获取当前文件夹 GetCurrentDir var dir: string; begin dir := GetCurrentDir; ShowMessage(dir); //C:\Projects end; -------------------------------------------------------------------------------- //设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory var dir: string; begin dir := c:\temp; if SetCurrentDir(dir) then ShowMessage(GetCurrentDir); //c:\temp //或者 ChDir(dir); //无返回值 //也可以使用API: SetCurrentDirectory(PChar(Dir)); //返回 Boolean end; -------------------------------------------------------------------------------- //获取指定驱动器的当前路径名 GetDir var dir: string; b: Byte; begin