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

[zhylin]

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

[李_军]

我有，晚上给你发

[jjpan]

方法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;

[jjpan]

文件删除：
例子如下:// Delphi

program 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.

[DelphiBoy2003]

行了，可以结贴了

[lion_lh]

在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;