谁有文件和文件夹的拷贝、删除等相关功能的代码

Question

谁有文件和文件夹的拷贝、删除等相关功能的代码

Answer 1

方法1（强力推荐） 
 
 
　　通过调用Win 95系统外壳来完成，需要在USES子句中添加SHELLAPI单元。这种方法与Win 95下
文件拷贝的方式完全一样，也会自动出现“正在拷贝...”的提示。如果目标文件已经存在，函数可以根据
操作标志位自动生成多份复件。 
 
　　改变wFunc的值，则可以完成删除、更名、放到回收站等功能。笔者认为这是最好的一种方法。 
 
　　procedure TForm1.Button5Click(Sender: TObject); 
 
　　var 
 
　　F:TShFileOpStruct; 
 
　　begin 
 
　　F.wnd:=Handle; 
 
　　F.wFunc:=FO—COPY; {操作方式} 
 
　　F.pFrom:=′C:\DEMO.DAT′; 
 
　　F.pTo:=′F:\TEST.DAT′; 
 
　　F.fFlags:=FOF—ALLOWUNDO OR FOF—RENAMEONCOLLISION; {操作选项} 
 
　　if ShFileOperation(F)<>0 then 
 
　　ShowMessage(′文件拷贝失败！′); 
 
　　end; 
 
 
　　方法2 （推荐使用） 
 
 
　　采用文件流方式，可以直接对文件进行读写。 
 
　　procedure TForm1.Button2Click(Sender: TObject); 
 
　　Var 
 
　　 S, T: TFileStream; {文件流} 
 
　　 SourceFileName,DestFileName:String;{源文件和目的文件名} 
 
　　Begin 
 
　　 S := TFileStream.Create( SourceFileName, fmOpenRead ); 
 
　　 try 
 
　　 T := TFileStream.Create( DestFileName,fmOpenWrite or fmCreate ); 
 
　　 try 
 
　　 T.CopyFrom(S, S.Size ) ; 
 
　　finally 
 
　　 T.Free; 
 
　　end; 
 
　　 finally 
 
　　 S.Free; 
 
　　 end; End; 
 
 
　　方法3（推荐在做安装盘时使用） 
 
 
　　采用压缩与解压缩单元LZEXPAND，需要在USES子句中添加LZEXPAND单元。 
 
　　procedure TForm1.Button3Click(Sender: TObject); 
 
　　var 
 
　　 SourceHandle, DestHandle: Integer; {文件句柄} 
 
　　 SourceFileName,DestFileName:String;{源文件和目的文件名} 
 
　　 begin 
 
　　 {打开文件} 
 
　　 SourceFileName:=′C:\DEMO.DAT′; 
 
　　 DestFileName:=′F:\TEST.DAT′; 
 
　　 SourceHandle := FileOpen(SourceFileName,0); 
 
　　 DestHandle := FileCreate(DestFileName); 
 
　　 {拷贝} 
 
　　 LZCopy(SourceHandle,DestHandle); 
 
　　 {关闭文件} 
 
　　 FileClose(SourceHandle); 
 
　　 FileClose(DestHandle) 
 
　　end; 
 
 
　　方法4（推荐使用） 
 
 
　　采用内存流，内存流可直接将文件数据存放到内存中，代码简单，速度很快。 
 
　　procedure TForm1.Button4Click(Sender: TObject); 
 
　　var 
 
　　 SourceFileName,DestFileName: String; 
 
　　begin 
 
　　 with TMemoryStream.Create do 
 
　　 try 
 
　　 LoadFromFile(SourceFileName); 
 
　　 SaveToFile(DestFileName); 
 
　　 finally 
 
　　 Free; 
 
　　 end; end; 

Answer 2

文件删除：
例子如下:// Delphiprogram del;uses ShellApi;
{ 利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; }Var T:TSHFileOpStruct;
P:String;
begin
P:='C:\Windows\System\EL_CONTROL.CPL';
With T do
Begin
Wnd:=0;
wFunc:=FO_DELETE;
pFrom:=Pchar(P);
fFlags:=FOF_ALLOWUNDO
End;
SHFileOperation(T);
End.

Answer 3

在Delphi中实现对目录拷贝、删除和搬移的操作 笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求,Delphi本身提供了一些目录操作函数,但只是针对空目录而言,对目录下带有子目录的情况,更是无能为力。利用Win32 API函数和结构,以及递归的程序设计思想,笔者实现了对任意目录进行拷贝、删除和搬移的功能(分别相当于DOS中的XCopy、DelTree和Move命令)。以下分别给出了实现代码: 
 1、拷贝目录 
 为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件和子目录都拷贝完。 
 1.1拷贝目录的递归辅助函数:DoCopyDir 
function DoCopyDir(sDirName:String;
sToDirName:String):Boolean;
var
   hFindFile:Cardinal;
   t,tfile:String;
   sCurDir:String[255];
   FindFileData:WIN32_FIND_DATA;
begin
   //先保存当前目录
   sCurDir:=GetCurrentDir;
   ChDir(sDirName);
   hFindFile:=FindFirstFile('*.*',FindFileData);
   if hFindFile< >INVALID_HANDLE_VALUE then
   begin
        if not DirectoryExists(sToDirName) then
           ForceDirectories(sToDirName);
        repeat
              tfile:=FindFileData.cFileName;
              if (tfile='.') or (tfile='..') then
                 Continue;
              if FindFileData.dwFileAttributes=
              FILE_ATTRIBUTE_DIRECTORY then
              begin
                   t:=sToDirName+'\'+tfile;
                   if  not DirectoryExists(t) then
                       ForceDirectories(t);
                   if sDirName[Length(sDirName)]< >'\' then
                      DoCopyDir(sDirName+'\'+tfile,t)
                   else
                      DoCopyDir(sDirName+tfile,sToDirName+tfile);
              end
              else
              begin
                   t:=sToDirName+'\'+tFile;
                   CopyFile(PChar(tfile),PChar(t),True);
              end;
        until FindNextFile(hFindFile,FindFileData)=false;
        FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;
 1.2拷贝目录的函数:CopyDir 
function CopyDir(sDirName:String;
sToDirName:string):Boolean;
begin
      if Length(sDirName)< =0 then
         exit;
      //拷贝...
      Result:=DoCopyDir(sDirName,sToDirName);
end;
 2、删除目录 
 删除目录与拷贝目录很类似,但为了能删除位于根目录下的一个空目录,需要在辅助函数中设置一个标志变量,即:如果删除的是空目录,则置bEmptyDir为True,这一句已经用深色框表示了。 
 2.1删除目录的递归辅助函数:DoRemoveDir 
function DoRemoveDir(sDirName:String):Boolean;
var
   hFindFile:Cardinal;
   tfile:String;
   sCurDir:String;
   bEmptyDir:Boolean;
   FindFileData:WIN32_FIND_DATA;
begin
   //如果删除的是空目录,则置bEmptyDir为True
   //初始时,bEmptyDir为True
   bEmptyDir:=True;
   //先保存当前目录
   sCurDir:=GetCurrentDir;
   SetLength(sCurDir,Length(sCurDir));
   ChDir(sDirName);
   hFindFile:=FindFirstFile('*.*',FindFileData);
   if hFindFile< >INVALID_HANDLE_VALUE then
   begin
        repeat
              tfile:=FindFileData.cFileName;
              if (tfile='.') or (tfile='..') then
              begin
                 bEmptyDir:=bEmptyDir and True;
                 Continue;
              end;
              //不是空目录,置bEmptyDir为False
              bEmptyDir:=False;
              if FindFileData.dwFileAttributes=
              FILE_ATTRIBUTE_DIRECTORY then
              begin
                   if sDirName[Length(sDirName)]< >'\' then
                      DoRemoveDir(sDirName+'\'+tfile)
                   else
                      DoRemoveDir(sDirName+tfile);
                   if not RemoveDirectory(PChar(tfile)) then
                      result:=false
                   else
                      result:=true;
              end
              else
              begin
                   if not DeleteFile(PChar(tfile)) then
                      result:=false
                   else
                      result:=true;
              end;
        until FindNextFile(hFindFile,FindFileData)=false;
        FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //如果是空目录,则删除该空目录
   if bEmptyDir then
   begin
        //返回上一级目录
        ChDir('..');
        //删除空目录
        RemoveDirectory(PChar(sDirName));
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;
 2.2删除目录的函数:DeleteDir 
function DeleteDir(sDirName:String):Boolean;
begin
      if Length(sDirName)< =0 then
         exit;
      //删除...
      Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName);
end;
 3、移动目录 
 有了拷贝目录和删除目录的函数,移动目录就变得很简单,只需顺序调用前两个函数即可: 
function MoveDir(sDirName:String;
sToDirName:string):Boolean;
begin
     if CopyDir(sDirName,sToDirName) then
        if RemoveDir(sDirName) then
           result:=True
        else
           result:=false;
end;