delphi 复制文件夹的函数

原创 2007年10月05日 11:41:00
 procedure   ShellCopy(const   dir1:string;   const   dir2:string);   /////格式shellcopy('d:/1/*.*','e:/1/');///windows外壳拷贝
  var
  f:TSearchRec;
  na,sdir:string;
  s:tstringlist;
  i:integer;
  fshell:TSHFileOpStruct;
  begin
        s:=tstringlist.Create;
        //////////////////////
        if   (not   DirectoryExists(dir2))   then   CreateDir(dir2);
        sdir:=dir1;
        delete(sdir,length(sdir)-2,3);
        if   FindFirst(dir1,faAnyFile,f)=0   then
            begin
                if   (f.Name<>'database.dat')   and   (f.Attr<>faDirectory)   then
                    begin   s.Add(f.Name)   end;
                repeat
                  na:=f.Name;
                  FindNext(f);
                  if   (na<>f.Name)   and   (f.Name<>'database.dat')   and   (f.Attr<>faDirectory)   then
                      begin   s.Add(f.Name);   end;
                until   na=f.Name;
            end;
        //////////////////////
        fshell.Wnd:=form1.Handle;
        fshell.wFunc:=FO_COPY;
        fshell.fFlags:=FOF_SILENT;
        for   i:=0   to   s.Count-1   do
            begin
                fshell.pFrom:=pansichar(sdir+s.Strings[i]);
                fshell.pTo:=pansichar(dir2+s.strings[i]);
                SHFileOperation(fshell);
            end;
  end; 

Delphi中实现文件拷贝的三种方法 (收藏)

1.利用Windows API:CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL proced...
  • chinmusam
  • chinmusam
  • 2010年12月19日 02:58
  • 974

Delphi选择文件夹

在Delphi中,定位文件的操作主要有两种方法。一种是直接定位文件,即通过“打开”对话框(OpenDialog)控件来实现。另一种是只定位到文件夹,然后再在此文件夹内寻找文件,...
  • zjluming
  • zjluming
  • 2014年03月06日 21:47
  • 1126

Delphi中实现文件拷贝的三种方法

1.调用API函数procedure CopyFile(FromFileName,ToFileName:string);varf1,f2:file;BeginAssignFile(f1,FromFil...
  • wljcr
  • wljcr
  • 2001年07月17日 09:18
  • 1029

delphi拷贝文件

  • 2012年10月23日 10:02
  • 417B
  • 下载

CMD 复制文件夹

例如有一个文件夹在c:\file 要复制到d:\ 就可以打:xcopy c:\file d:\file /d/e net use x: \\192.168.0.%%i\E$...
  • wanlaoma
  • wanlaoma
  • 2013年12月30日 14:04
  • 13182

在java中高效复制一个文件夹里面所有的内容

在接的一个外包项目里面:有一个二维码扫描仪的二次开发的项目,在这里面有个问题就是需要将一个比较大的文件夹里面的所有内容复制到另外一个文件夹中,由于文件夹里面的内容还比较多,所以需要一点高效的方法。 ...
  • rqc112233
  • rqc112233
  • 2015年11月21日 09:42
  • 2956

采用线程方式拷贝文件(夹)Delphi使用自带的进度条显示进度

  • 2014年08月12日 17:50
  • 170KB
  • 下载

delphi中如何实现文件的拷贝?

{文件流方式.}    Procedure FileCopy( Const sourcefilename, targetfilename: String );    Var    S, T: T...
  • zisongjia
  • zisongjia
  • 2017年03月30日 15:49
  • 631

shutil模块:复制文件和文件夹,文件压缩

shutil模块:复制文件和文件夹,文件压缩 shutil模块包含了一些用于复制文件和文件夹,和文件压缩的函数.  1.文件的拷贝 copyfile( src, dst) 从源src复制到...
  • franktan2010
  • franktan2010
  • 2015年06月04日 09:46
  • 1773

delphi CopyFile的基础用法

delphi-CopyFile的简单用法。
  • zhouky1993
  • zhouky1993
  • 2017年03月02日 18:09
  • 1923
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 复制文件夹的函数
举报原因:
原因补充:

(最多只允许输入30个字)