如何复制某一文件夹内所有的word文档到两一目录中? 如题 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 抱歉:是如何复制某一文件夹内所有的word文档到另一目录中? function CopyDirectory(const Source, Dest: string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_COPY; pFrom := PChar(source+#0); pTo := PChar(Dest+#0); fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; end; Result := (SHFileOperation(fo) = 0);end; 小弟现在在学习Delphi 7,各位大虾有没有什么入门书籍可以推荐啊,谢谢 数据查询问题 用程序实现控制显示器的开关、系统待机等... csdn论坛现在出问题了?(散分) richedit中,文字滚屏。(要求:平滑滚屏。类似word的滚屏)。 怎样使datagrid当前行整行带颜色,在线给分。。。。 如何得到EXCEL 的行数? 大家帮我看一下,兼散分! 怎样将OpenDialog中的文件复选加入ListBox中 怎样使两个treeview加载相同的节点 ?????简单的数据库错误问题,高手来指点一下吧!!?? 有关录音的问题!!(急!急!急!)
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(source+#0);
pTo := PChar(Dest+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;