untbackup.pas

驱动备份顾名思义就是备份操作系统的各个硬件的驱动程序

//  untBackUp单元
//  作用:备份URL文件
//  版本:1.0.0.43
//  作者:林仕君
//  日期:2004.9.20

unit untBackUp;

interface

uses
  Windows, Messages, SysUtils,StrUtils,Classes;

  procedure BackUpFile(FavPath,SavePath,FileName:string);

implementation
  uses untFileInfo;

procedure BackUpFile(FavPath,SavePath,FileName:string);
  var i:integer;
      Path:string;
      List:Tstringlist;
begin
  List:=TStringList.Create ;
  if not DirectoryExists('BackUp') then CreateDir('BackUp');
  if FavPath[length(FavPath)]<>'\' then FavPath:=FavPath+'\';
  if SavePath[length(SavePath)]<>'\' then SavePath:=SavePath+'\';
  if not DirectoryExists(SavePath+'收藏夹') then CreateDir(SavePath+'收藏夹');
  //获取路径中的各个文件夹名称(用于一级级的判断文件夹的存在情况)
  DirPath(FileName,List);
  if List.Text<>'' then
    begin
      Path:=SavePath+'收藏夹\'+List.Strings[0];
      for i:=0 to list.Count -1 do  //循环判断文件的存在情况
        begin
          if not DirectoryExists(Path) then //不存在则创建
            CreateDir(Path);
          if (i+1)<=(list.Count-1) then  //防止i+1超出列表数量
            Path:=Path+'\'+List.Strings[i+1]; //确定下一次循环判断的文件夹路径
        end;
    end;
  //备份URL文件(源文件路径,目标文件路径,false允许覆盖同名文件,反之不覆盖)
  copyFile(Pchar(FavPath+FileName),Pchar(SavePath+'收藏夹\'+FileName),false);
end;

end.