delphi如何复制文件夹

可以用以下的方法：

CopyFile(pchar('c:\sql.txt'), pchar('d:\sql.txt'), True)

只要是文件的复制，都可以。

移动文件：

MoveFile(pchar('c:\sql.txt'), pchar('d:\sql.txt'))

删除文件：

DeleteFile('c:\sql.txt')；

以上都是可行的。

//********************************************************************

//功能：将FromPath路径指定的文件拷贝到ToPath指定路径下

//参数：(1)FromPath,一个完全限定的文件路径，指定源 *** 作文件位置

//

(2)ToPath,目的文件位置，如果ToPath指定的目录不存在将自动创建它

//返回值:

1,复制 *** 作成功完成

//

0,复制 *** 作被取消

//

-1,复制 *** 作执行失败

//

//

说明:ToPath中不能含有通配符

//

若FromPath指定一个文件，则ToPath可以指定一个目录或一个将创建的

//

新文件；若FromPath指定一个目录或含有通配符的路径，即使ToPath指

//

定一个新文件，ToPath也将被解析为一个目录(目录名即为新文件名)。

//*********************************************************************

function

dlgCopyFiles(FromPath,ToPath:string):Integer

var

lpFileOP:SHFileOpStruct

begin

lpFileOP.Wnd:=0

lpFileOP.wFunc:=FO_COPY

lpFileOP.pFrom:=PWideChar(FromPath+#0)

lpFileOP.pTo:=PWideChar(ToPath+#0)

//自动创建目录

lpFileOP.fFlags:=FOF_NOCONFIRMMKDIR

Result:=SHFileOperation(lpFileOP)

if(lpFileOP.fAnyOperationsAborted)then

Result:=0

else

begin

if(Result=0)then

Result:=1

else

Result:=-1

end

end

---