怎样拷贝一批文件(100分)

cbdelphi · 2001-01-01

我想问一下，怎样能一下，拷贝一批文件 （或知道这个目录下所有的文件名）。 比如：一下拷贝一个目录下的所有文件。 可是用API涵数CopyFile一下只可以 拷贝一个文件。 我主要是想做一个备份系统，一下可以 备份一个目录下的文件。如果你有更好的 办法，如：可以把多个文件打成包， 做成一个备份文件就更好了，多谢了！

iseek · 2001-01-01

f-h-s： 发送失败。

CJF · 2001-06-23

//目录,后缀,列表 procedure GetFileFilterList(Root:String;Filter:String;FileList:TStringList); var   sr: TSearchRec;   FileAttrs: Integer; begin   FileAttrs:=faArchive;   FileList.Clear;   if FindFirst(Root+Filter, FileAttrs, sr) = 0 then    begin     if (sr.Attr and FileAttrs) = sr.Attr then       begin        FileList.Append(Root+SR.Name);        while FindNext(sr) = 0 do         begin          if (sr.Attr and FileAttrs) = sr.Attr then           begin            FileList.Append(Root+SR.Name);           end;         end;        FindClose(sr);       end;    end; end;

michael.ma · 2001-06-24

用压缩的办法吧，zip。

卷起千堆雪tyn · 2001-06-24

to  cbdelphi :     我帮你做好了~~~     假设你原来的目录为 c:/tyn1   你现在想备份到 c:/tyn2目录下 ~~~~~~ procedure TForm1.Button1Click(Sender: TObject); var   FileOpStruct :TSHFileOpStruct;   Buf1 :array [0..127] of Char;   Buf2 :array [0..127] of Char;   Str1,Str2 :String; begin   Str1 :='c:/tyn1';   Str2 :='c:/tyn2';   FillChar(Buf1,SizeOf(Buf1),0);   FillChar(Buf2,SizeOf(Buf2),0);   StrPCopy(Buf1,Str1);   StrPCopy(Buf2,Str2);   with FileOpStruct do   begin     Wnd :=Handle;     wFunc :=FO_COPY;     pFrom :=@Buf1;     pTo :=@Buf2;     fFlags :=FOF_SIMPLEPROGRESS;     fAnyOperationsAborted :=False;     hNameMappings :=nil;     lpszProgressTitle :='拷贝文件';   end;   SHFileOperation(FileOpStruct); end;

卷起千堆雪tyn · 2001-06-24

当然不要忘记在 uses 部分加入 ShellAPI 单元~~~~~

cbdelphi · 2001-06-24

怎样用用压缩的办法，压缩成ZIP文件？

cbdelphi · 2001-06-24

怎样解压ZIP文件

luyear · 2001-06-24

调用DOS程序：RAR.EXE 或　ARJ.EXE

汪汪汪汪 · 2001-07-10

用rar 可以压缩成一个文件,然后解压开来, 可以参看 rar的帮助,只需要rar.exe文件,rar -? 可以看rar的参数 你可以调用winexec,shellexecute  等来进行

iseek · 2001-09-10

有一个bakup控件，完全可以满足你的要求

我是 · 2001-09-10

对：卷起千堆雪tyn的做法感兴趣研究

f-h-s · 2003-01-01

to iseek   up兄弟，能否将backup控件email me?  f-h-s@163.com 先谢谢了

iseek · 2003-01-01

f-h-s 已经将backup控件发给你了。

f-h-s · 2003-01-09

to iseek兄：   我怎么没有收到啊！！能不能再给我发一遍？谢谢、、、、

f-h-s · 2003-01-09

to quaker：你的信箱是否已经满了？我的信总被退回来

yyk518 · 2003-01-17

to iseek: 兄弟，能否将backup控件也email me?  yangzcsoft@163.net 先谢谢了

cbdelphi · 2003-07-31

Thank you!

hefly · 2003-08-15

写个批处理不就行了

pengyi007 · 2003-09-25

to iseek兄:   pengyi007@tellyes.com   谢谢

怎样拷贝一批文件(100分)

cbdelphi

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

CJF

Unregistered / Unconfirmed

michael.ma

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

cbdelphi

Unregistered / Unconfirmed

cbdelphi

Unregistered / Unconfirmed

luyear

Unregistered / Unconfirmed

汪汪汪汪

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

我是

Unregistered / Unconfirmed

f-h-s

Unregistered / Unconfirmed

iseek

Unregistered / Unconfirmed

f-h-s

Unregistered / Unconfirmed

f-h-s

Unregistered / Unconfirmed

yyk518

Unregistered / Unconfirmed

cbdelphi

Unregistered / Unconfirmed

hefly

Unregistered / Unconfirmed

pengyi007

Unregistered / Unconfirmed

Similar threads