delphi7 如何在当前复制一个文件夹，并且另存为另一个名字的文件夹，并不覆盖原文件的函数或者程序
比如，我在当前的d:\test下有一个a文件夹，怎么复制另存为为b文件夹呢？同时两个文件夹都在。谢谢！我写成copyfile(pchar('d:\test\a'),pch...
比如，我在当前的d:\test下有一个a文件夹，怎么复制另存为为b文件夹呢？同时两个文件夹都在。谢谢！
我写成copyfile(pchar('d:\test\a'),pchar('d:\test\b',false)却得不到b文件夹，然而我写成
movefile(pchar('d:\test\a'),pchar('d:\test\b')却可以，真心不知道什么原因。 展开
我写成copyfile(pchar('d:\test\a'),pchar('d:\test\b',false)却得不到b文件夹，然而我写成
movefile(pchar('d:\test\a'),pchar('d:\test\b')却可以，真心不知道什么原因。 展开
1个回答
展开全部
Uses ShellAPI;
Function DirCopy(aDir, bDir: String): Boolean;
Var
FO: TSHFILEOPSTRUCT;
Begin
FillChar(fo, SizeOf(fo), 0);
With FO Do
Begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(aDir + #0);
pTo := PChar(bDir + #0);
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;//参数含义自己研究
End;
Result := (SHFileOperation(fo) = 0);
End;
Procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
If DirCopy('D:\AAA', 'D:\AAA') Then
Begin
Application.MessageBox('OK', 'msg', 64);
End;
End;
更多追问追答
追问
您好，哪个shellAPI函数在哪儿调用呢？！！
追答
Uses ShellAPI;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
