急!!!在线!!!!文件夹下子文件夹操作 比如在word文件夹下增删改子文件夹,子文件夹下有word文档! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ???不明白你的意思?直接删除文件夹不就行了?function TForm1.DeleteDirectory(const Directory:string):boolean; var fo: TSHFILEOPSTRUCT; begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(Directory+#0); fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; end; Result := (SHFileOperation(fo) = 0); end; 比如在word文件夹下增删改子文件夹,子文件夹下有word文档!word文件夹有合作合同文件夹、买卖合同文件夹等,可以在创建其他的文件夹,删除要把文件夹里面的文件也 删除 CreateDir('d:\abc');//建立RenameFile('d:\abc','d:\abc123');//重命名RemoveDir('d:\abc123');//删除 这样就可以了 CreateDir('d:\abc');//建立 RenameFile('d:\abc','d:\abc123');//重命名 RemoveDir('d:\abc123');//删除 如何在console程序中显现timer的功能。 画个圆,里面再画个X,半径为3-100 我是个Delphi数据库的开发新手,有个棘手问题请大家帮忙,谢谢!谢谢!!! IBM40G硬盘的问题,零磁道坏了!!有重要数据啊~~~ 引用DLL(在线待!) 求过程建模的相关概念,步骤,方法。 谁是刚从PB转入的 求《delphi进销存程序设计》电子书,不随书源码 我有一个不错的游戏创意,请重庆的美工和程序员和我联系! 请教这是什么意思:{$IFDEF JPEG},高分求教 delphi课程设计做好后,如果换到另外一台机子上该怎么办?老师要验收... 高手请指点下:DLL中函数指针传递结构体数组
不明白你的意思?
直接删除文件夹不就行了?
function TForm1.DeleteDirectory(const Directory:string):boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(Directory+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;
word文件夹有合作合同文件夹、买卖合同文件夹等,可以在创建其他的文件夹,删除要把文件夹里面的文件也 删除
RenameFile('d:\abc','d:\abc123');//重命名
RemoveDir('d:\abc123');//删除
CreateDir('d:\abc');//建立
RenameFile('d:\abc','d:\abc123');//重命名
RemoveDir('d:\abc123');//删除