Delphi文件管理函数.docxVIP

//判断文件是否存在 FileExists var f:string; begin f:=c:\temp\test.txt; ifnotFileExists(f)then begin //如果文件不存在end; end; - //判断文件夹是否存在 DirectoryExists var dir:string; begin dir:=c:\temp; ifnotDirectoryExists(dir)then begin //如果文件夹不存在end; end; - //删除文件 DeleteFile;Windows.DeleteFile var f:string; begin f:=c:\te