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.调用API函数 procedure CopyFile(FromFileName,ToFileName:string); var f1,f2:file; Begin AssignFile(...

SHFileOperation()函数移动,复制,删除文件\文件夹

(转载于:http://hi.baidu.com/%B4%E7%B2%DD%D0%C4_/blog/item/e3a8200a28f6ea3ab1351d38.html) 总结一下SHFileOpe...

PB利用API-SHFileOperation 文件操作函数 实现多文件及文件夹的删除复制等操作

PB的文件操作能力比较弱,自带的一些函数功能太简单,一遇上些稍微复杂些的需求(如多文件删除,文件夹的删除等)并不是非常好用,所以利用windows的API来实现相应的功能就成了最好的选择,而这其中,S...
  • sjlion
  • sjlion
  • 2012-01-30 18:06
  • 1591

delphi获取系统特定文件夹路径

获取收藏夹:use shellapi,shlobjprocedure TForm1.FormCreate(Sender: TObject); var pidl: PItemIDList; FavPat...
  • god00
  • god00
  • 2011-06-26 08:08
  • 363

Delphi打开目录文件夹的几中类型

TFileOpenDialog、ShellExecute、SelectDirectory、GetOpenFilename、GetSaveAsFilename

Delphi 文件夹遍历所有文件包括子文件文件,并可通过后缀过滤

unit SearchTool; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro...
  • fzuim
  • fzuim
  • 2016-06-20 14:36
  • 1677

DELPHI 通过ZLib来压缩文件夹

unit Unit1; interface uses   ZLib,   Windows, Messages, SysUtils, Variants, Classes, Graphics, C...

delphi的文件夹监控控件,直接封装成可视化的控件,拖一下即可代码。核心为:ReadDirectoryChangesW

网上的代码修改成控件形式了。代码如下: unit FolderMon; interface uses SysUtils , Classes , Windows ; type ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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