关于文件复制的问题

Question

请问怎样将硬盘某个目录中的所有文件复制到软盘，并且在复制时显示当前文件名和复制进度，当软盘剩余空间不足时，自动提示更换软盘？

Answer 1

直接调用操作系统的功能，写个Bat文件,在程序中执行他，你要的一切，操作系统都为你做好了。

Answer 2

同意楼上的,编了这么时间的程,第一次看到miky(miky)这样的程序,不过还真是够高的,实用

Answer 3

用delphi怎么实现呀（不用SHFileOperation）？因为这是我的程序中要实现的一个功能。

Answer 4

procedure TForm1._XCopy(ASourceDir:String; ADestDir:String);
var
FileRec:TSearchrec;
Sour:String;
Dest:String;
begin
  Sour:=ASourceDir;
  Dest:=ADestDir;  if Sour[Length(Sour)]<>'\' then Sour := Sour + '\';
  if Dest[Length(Dest)]<>'\' then Dest := Dest + '\';  if not DirectoryExists(ASourceDir) then
     begin
       ShowMessage('来源目录不存在!!');
       exit;
     end;  if not DirectoryExists(ADestDir) then
     begin
       ForceDirectories(ADestDir);
     end;  if FindFirst(Sour+'*.*',faAnyfile,FileRec) = 0 then
    repeat
      if ((FileRec.Attr and faDirectory) <> 0) then
         begin
           if (FileRec.Name<>'.') and (FileRec.Name<>'..') then
              begin
                _XCopy(Sour+FileRec.Name,Dest+FileRec.Name);
              end;
         end
      else
         begin
           CopyFile(PChar(Sour+FileRec.Name),PChar(Dest+FileRec.Name),false);
//从这里添加显示当前操作的文件
 label2.caption:='正在复制文件：'+sour+filerec.name ;         end;
    until FindNext(FileRec)<>0;  FindClose(FileRec);
 
end;