Delphi文件操作所涉及的一些函数

  
    

   
     
   
     //
   
     判断文件是否存在 FileExists

   
     //
   
     判断文件夹是否存在 DirectoryExists

   
     //
   
     删除文件 DeleteFile; Windows.DeleteFile

   
     //
   
     删除文件夹 RemoveDir; RemoveDirectory

   
     //
   
     获取当前文件夹 GetCurrentDir

   
     //
   
     设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory

   
     //
   
     获取指定驱动器的当前路径名 GetDir

   
     //
   
     文件改名 RenameFile

   
     //
   
     建立文件夹 CreateDir; CreateDirectory; ForceDirectories

   
     //
   
     删除空文件夹 RemoveDir; RemoveDirectory

   
     //
   
     建立新文件 FileCreate

   
     //
   
     获取当前文件的版本号 GetFileVersion

   
     //
   
     获取磁盘空间 DiskSize; DiskFree

   
     //
   
     搜索文件 FindFirst; FindNext; FindClose

   
     //
   
     读取与设置文件属性 FileGetAttr; FileSetAttr

   
     //
   
     获取文件的创建时间 FileAge; FileDateToDateTime


   
     //
   
     判断文件是否存在 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
   
      
 b :
   
     =
   
      
   
     0
   
     ; 
 GetDir(b,dir); 
 ShowMessage(dir); 
   
     //
   
      

   
     //
   
     第一个参数: 
   
     1
   
     、
   
     2
   
     、
   
     3
   
     、
   
     4
   
     ...分别对应: A、B、C、D... 

   
     //
   
     0
   
      是缺省驱动器 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     文件改名 RenameFile 

   
     var
   
      
 OldName,NewName: 
   
     string
   
     ; 

   
     begin
   
      
 OldName :
   
     =
   
      
   
     '
   
     c:"temp"Old.txt
   
     '
   
     ; 
 NewName :
   
     =
   
      
   
     '
   
     c:"temp"New.txt
   
     '
   
     ; 
 
   
     if
   
      RenameFile(OldName,NewName) 
   
     then
   
      
 ShowMessage(
   
     '
   
     改名成功!
   
     '
   
     ); 

   
     //
   
     也可以: 
 SetCurrentDir(
   
     '
   
     c:"temp
   
     '
   
     ); 
 OldName :
   
     =
   
      
   
     '
   
     Old.txt
   
     '
   
     ; 
 NewName :
   
     =
   
      
   
     '
   
     New.txt
   
     '
   
     ; 
 
   
     if
   
      RenameFile(OldName,NewName) 
   
     then
   
      
 ShowMessage(
   
     '
   
     改名成功!
   
     '
   
     ); 

   
     //
   
     也可以: 
 SetCurrentDir(
   
     '
   
     c:"temp
   
     '
   
     ); 
 OldName :
   
     =
   
      
   
     '
   
     Old.txt
   
     '
   
     ; 
 NewName :
   
     =
   
      
   
     '
   
     New.txt
   
     '
   
     ; 
 
   
     if
   
      RenameFile(OldName,NewName) 
   
     then
   
      
 ShowMessage(
   
     '
   
     改名成功!
   
     '
   
     ); 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     建立文件夹 CreateDir; CreateDirectory; ForceDirectories 

   
     var
   
      
 dir: 
   
     string
   
     ; 

   
     begin
   
      
 dir :
   
     =
   
      
   
     '
   
     c:"temp"delphi
   
     '
   
     ; 
 
   
     if
   
      
   
     not
   
      DirectoryExists(dir) 
   
     then
   
      
 CreateDir(dir); 
   
     //
   
     返回 Boolean 

   
     //
   
     也可以直接用API: 
 CreateDirectory(PChar(dir),
   
     nil
   
     ); 
   
     //
   
     返回 Boolean 

   
     //
   
     如果缺少上层目录将自动补齐: 
 dir :
   
     =
   
      
   
     '
   
     c:"temp"CodeGear"Delphi"2007"万一
   
     '
   
     ; 
 ForceDirectories(dir); 
   
     //
   
     返回 Boolean 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     删除空文件夹 RemoveDir; RemoveDirectory 

   
     var
   
      
 dir: 
   
     string
   
     ; 

   
     begin
   
      
 dir :
   
     =
   
      
   
     '
   
     c:"temp"delphi
   
     '
   
     ; 
 RemoveDir(dir); 
   
     //
   
     返回 Boolean 

   
     //
   
     也可以直接用API: 
 RemoveDirectory(PChar(dir)); 
   
     //
   
     返回 Boolean 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     建立新文件 FileCreate 

   
     var
   
      
 FileName: 
   
     string
   
     ; 
 i: Integer; 

   
     begin
   
      
 FileName :
   
     =
   
      
   
     '
   
     c:"temp"test.dat
   
     '
   
     ; 
 i :
   
     =
   
      FileCreate(FileName); 
 
   
     if
   
      i
   
     >
   
     0
   
      
   
     then
   
      
 ShowMessage(
   
     '
   
     新文件的句柄是: 
   
     '
   
      
   
     +
   
      IntToStr(i)) 
 
   
     else
   
      
 ShowMessage(
   
     '
   
     创建失败!
   
     '
   
     ); 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     获取当前文件的版本号 GetFileVersion 

   
     var
   
      
 s: 
   
     string
   
     ; 
 i: Integer; 

   
     begin
   
      
 s :
   
     =
   
      
   
     '
   
     C:"WINDOWS"notepad.exe
   
     '
   
     ; 
 i :
   
     =
   
      GetFileVersion(s); 
   
     //
   
     如果没有版本号返回 
   
     -
   
     1
   
      
 ShowMessage(IntToStr(i)); 
   
     //
   
     327681
   
      这是当前记事本的版本号(还应该再转换一下) 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     获取磁盘空间 DiskSize; DiskFree 

   
     var
   
      
 r: Real; 
 s: 
   
     string
   
     ; 

   
     begin
   
      
 r :
   
     =
   
      DiskSize(
   
     3
   
     ); 
   
     //
   
     获取C:总空间, 单位是字节 
 r :
   
     =
   
      r
   
     /
   
     1024
   
     /
   
     1024
   
     /
   
     1024
   
     ; 
 Str(r:
   
     0
   
     :
   
     2
   
     ,s); 
   
     //
   
     格式为保留两位小数的字符串 
 s :
   
     =
   
      
   
     '
   
     C盘总空间是: 
   
     '
   
      
   
     +
   
      s 
   
     +
   
      
   
     '
   
      GB
   
     '
   
     ; 
 ShowMessage(s); 
   
     //
   
     xx.xx GB 
 r :
   
     =
   
      DiskFree(
   
     3
   
     ); 
   
     //
   
     获取C:可用空间 
 r :
   
     =
   
      r
   
     /
   
     1024
   
     /
   
     1024
   
     /
   
     1024
   
     ; 
 Str(r:
   
     0
   
     :
   
     2
   
     ,s); 
 s :
   
     =
   
      
   
     '
   
     C盘可用空间是: 
   
     '
   
      
   
     +
   
      s 
   
     +
   
      
   
     '
   
      GB
   
     '
   
     ; 
 ShowMessage(s); 
   
     //
   
     xx.xx GB 

   
     end
   
     ; 

   
     //
   
     查找一个文件 FileSearch 

   
     var
   
      
 FileName,Dir,s: 
   
     string
   
     ; 

   
     begin
   
      
 FileName :
   
     =
   
      
   
     '
   
     notepad.exe
   
     '
   
     ; 
 Dir :
   
     =
   
      
   
     '
   
     c:"windows
   
     '
   
     ; 
 s :
   
     =
   
      FileSearch(FileName,Dir); 
 
   
     if
   
      s
   
     <>
   
     ''
   
      
   
     then
   
      
 ShowMessage(s) 
   
     //
   
     c:"windows"notepad.exe 
 
   
     else
   
      
 ShowMessage(
   
     '
   
     没找到
   
     '
   
     ); 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     搜索文件 FindFirst; FindNext; FindClose 

   
     var
   
      
 sr: TSearchRec; 
   
     //
   
     定义 TSearchRec 结构变量 
 Attr: Integer; 
   
     //
   
     文件属性 
 s: 
   
     string
   
     ; 
   
     //
   
     要搜索的内容 
 List: TStringList; 
   
     //
   
     存放搜索结果 

   
     begin
   
      
 s :
   
     =
   
      
   
     '
   
     c:"windows"*.txt
   
     '
   
     ; 
 Attr :
   
     =
   
      faAnyFile; 
   
     //
   
     文件属性值faAnyFile表示是所有文件 
 List :
   
     =
   
      TStringList.Create; 
   
     //
   
     List建立 
 
   
     if
   
      FindFirst(s,Attr,sr)
   
     =
   
     0
   
      
   
     then
   
      
   
     //
   
     开始搜索,并给 sr 赋予信息, 返回0表示找到第一个 
 
   
     begin
   
      
 
   
     repeat
   
      
   
     //
   
     如果有第一个就继续找 
 List.Add(sr.Name); 
   
     //
   
     用List记下结果 
 
   
     until
   
     (FindNext(sr)
   
     <>
   
     0
   
     ); 
   
     //
   
     因为sr已经有了搜索信息, FindNext只要这一个参数, 返回0表示找到 
 
   
     end
   
     ; 
 FindClose(sr); 
   
     //
   
     需要结束搜索, 搜索是内含句柄的 
 ShowMessage(List.Text); 
   
     //
   
     显示搜索结果 
 List.Free; 
   
     //
   
     释放List 
 
   
     //
   
     更多注释: 
 
   
     //
   
     TSearchRec 结构是内涵文件大小、名称、属性与时间等信息 
 
   
     //
   
     TSearchRec 中的属性是一个整数值, 可能的值有: 
 
   
     //
   
     faReadOnly 
   
     1
   
      只读文件 
 
   
     //
   
     faHidden 
   
     2
   
      隐藏文件 
 
   
     //
   
     faSysFile 
   
     4
   
      系统文件 
 
   
     //
   
     faVolumeID 
   
     8
   
      卷标文件 
 
   
     //
   
     faDirectory 
   
     16
   
      目录文件 
 
   
     //
   
     faArchive 
   
     32
   
      归档文件 
 
   
     //
   
     faSymLink 
   
     64
   
      链接文件 
 
   
     //
   
     faAnyFile 
   
     63
   
      任意文件 
 
   
     //
   
     s 的值也可以使用?通配符,好像只支持7个?, 如果没有条件就是
   
     *
   
     , 譬如: C:"
   
     *
   
      
 
   
     //
   
     实际使用中还应该在 
   
     repeat
   
      中提些条件, 譬如判断如果是文件夹就递归搜索等等 

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     读取与设置文件属性 FileGetAttr; FileSetAttr 

   
     var
   
      
 FileName: 
   
     string
   
     ; 
 Attr: Integer; 
   
     //
   
     属性值是一个整数 

   
     begin
   
      
 FileName :
   
     =
   
      
   
     '
   
     c:"temp"Test.txt
   
     '
   
     ; 
 Attr :
   
     =
   
      FileGetAttr(FileName); 
 ShowMessage(IntToStr(Attr)); 
   
     //
   
     32
   
     , 存档文件 
 
   
     //
   
     设置为隐藏和只读文件: 
 Attr :
   
     =
   
      FILE_ATTRIBUTE_READONLY 
   
     or
   
      FILE_ATTRIBUTE_HIDDEN; 
 
   
     if
   
      FileSetAttr(FileName,Attr)
   
     =
   
     0
   
      
   
     then
   
      
   
     //
   
     返回0表示成功 
 ShowMessage(
   
     '
   
     设置成功!
   
     '
   
     ); 
 
   
     //
   
     属性可选值(有些用不着): 
 
   
     //
   
     FILE_ATTRIBUTE_READONLY 
   
     =
   
      
   
     1
   
     ; 只读 
 
   
     //
   
     FILE_ATTRIBUTE_HIDDEN 
   
     =
   
      
   
     2
   
     ; 隐藏 
 
   
     //
   
     FILE_ATTRIBUTE_SYSTEM 
   
     =
   
      
   
     4
   
     ; 系统 
 
   
     //
   
     FILE_ATTRIBUTE_DIRECTORY 
   
     =
   
      
   
     16
   
      
 
   
     //
   
     FILE_ATTRIBUTE_ARCHIVE 
   
     =
   
      
   
     32
   
     ; 存档 
 
   
     //
   
     FILE_ATTRIBUTE_DEVICE 
   
     =
   
      
   
     64
   
      
 
   
     //
   
     FILE_ATTRIBUTE_NORMAL 
   
     =
   
      
   
     128
   
     ; 一般 
 
   
     //
   
     FILE_ATTRIBUTE_TEMPORARY 
   
     =
   
      
   
     256
   
      
 
   
     //
   
     FILE_ATTRIBUTE_SPARSE_FILE 
   
     =
   
      
   
     512
   
      
 
   
     //
   
     FILE_ATTRIBUTE_REPARSE_POINT 
   
     =
   
      
   
     1204
   
      
 
   
     //
   
     FILE_ATTRIBUTE_COMPRESSED 
   
     =
   
      
   
     2048
   
     ; 压缩 
 
   
     //
   
     FILE_ATTRIBUTE_OFFLINE 
   
     =
   
      
   
     4096
   
      
 
   
     //
   
     FILE_ATTRIBUTE_NOT_CONTENT_INDEXED 
   
     =
   
      
   
     8192
   
     ; 不被索引 
 
   
     //
   
     FILE_ATTRIBUTE_ENCRYPTED 
   
     =
   
      
   
     16384
   
      

   
     end
   
     ; 


   
     --------------------------------------------------------------------------------
   
      

   
     //
   
     获取文件的创建时间 FileAge; FileDateToDateTime 

   
     var
   
      
 FileName: 
   
     string
   
     ; 
 ti: Integer; 
 dt: TDateTime; 

   
     begin
   
      
 FileName :
   
     =
   
      
   
     '
   
     c:"temp"Test.txt
   
     '
   
     ; 
 ti :
   
     =
   
      FileAge(FileName); 
 ShowMessage(IntToStr(ti)); 
   
     //
   
     返回: 
   
     931951472
   
     , 需要转换 
 dt :
   
     =
   
      FileDateToDateTime(ti); 
   
     //
   
     转换 
 ShowMessage(DateTimeToStr(dt)); 
   
     //
   
     2007
   
     -
   
     12
   
     -
   
     12
   
      
   
     14
   
     :
   
     27
   
     :
   
     32
   
      

   
     end
   
     ;