如何实现从网络上的某个目录下复制所有文件到本地文件夹？

Question

找到一个DELPHI自带的COPYFILE函数，但不支持多文件，太麻烦

Answer 1

笨方法：1、你在本地建一个批处理文件
     Copy Con CopyFile.bat
         @echo off
          Copy \\Hp\授权使用\外贸业务系统\*.* c:\zkf
         echo 拷贝完毕!!
         ^z // save
2、你只要执行这个批处理文件就可以，当然，要看你使用的场合。
你也可以在Delphi中打开上述批处理文件，以达到相同的目的.

Answer 2

只要你有相应的权限,可以使用这个API函数:
procedure TForm1.BitBtn1Click(Sender: TObject);
var F:TShFileOpStruct;    //uses shellapi;
    b:integer;
begin
   f.Wnd:=Form1.Handle;
   f.wFunc:=fo_copy; //fo_delete,copy,move,rename
   f.pFrom:=pChar('\\Hp\授权使用\外贸业务系统');
   f.pTo:=pChar('c:\zkf');
   f.fFlags:=FOF_ALLOWUNDO ;//or FOF_SILENT or FOF_NOCONFIRMATION;
   b:=ShFileOperation(f);
   if f.fAnyOperationsAborted then ShowMessage('用户取消操作');
   if b=0  then exit;
   beep; ShowMessage('文件操作没有实现!');
end;

Answer 3

呵呵,看Delphi的帮助嘛!只要把f.fFlags:=FOF_ALLOWUNDO ;//or FOF_SILENT or FOF_NOCONFIRMATION
改为f.fFlags:=FOF_SILENT or FOF_NOCONFIRMATION就可以了.

Answer 4

1: 
  copyfile(\\Hp\授权使用\外贸业务系统\file,c:\zkf,false);2:
var
  SR: TSearchRec;
  DosError: integer;
  FileSpec: string
begin
  DosError := FindFirst(FileSpec, faAnyFile-faDirectory, SR);
  while DosError=0 do
  begin
    deletefile(ExtractFilePath(FileSpec)+SR.Name);
    DosError := FindNext(SR);
  end;
  FindClose(SR);
end;

Answer 5

to 13023600339:
老兄，看着一行 f.wFunc:=fo_copy; //fo_delete,copy,move,rename
好好想一想
:p

Answer 6

那是否要指定f.pTo:=pChar('c:\zkf');呢？

Answer 7

改 f.wFunc:=fo_copy为 f.wFunc:=fo_delete,
不必指定f.pTo...

Answer 8

可以使用Ftp组件进行文件的远程传输，采用ftp协议。

Answer 9

呵呵，他是局域网,还是用ShFileOperation得了，
他也许不愿意装ftp服务器呢