用DELPHI如何实现：删除指定目录（含子目录）下指定文件名的文件？？
答案:2 悬赏:0 手机版
解决时间 2021-03-28 09:07
- 提问者网友：眉目添风霜
- 2021-03-28 02:56
用DELPHI如何实现：删除指定目录（含子目录）下指定文件名的文件？？
最佳答案
- 五星知识达人网友：神的生死簿
- 2021-03-28 04:05
Function Dir_Del_EX(Const aPath: String): Boolean; //uses ShellAPI 删除一个目录：包括非空目录， 或者文件
Var
FO: TSHFILEOPSTRUCT;
aDir: String;
Begin
aDir := ExcludeTrailingPathDelimiter(aPath);
FillChar(FO, SizeOf(FO), 0);
With FO Do
Begin
Wnd := 0;
wFunc := FO_DELETe;
pFrom := PChar(aDir + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
End;
Result := (SHFileOperation(FO) = 0);
End;
Var
FO: TSHFILEOPSTRUCT;
aDir: String;
Begin
aDir := ExcludeTrailingPathDelimiter(aPath);
FillChar(FO, SizeOf(FO), 0);
With FO Do
Begin
Wnd := 0;
wFunc := FO_DELETe;
pFrom := PChar(aDir + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
End;
Result := (SHFileOperation(FO) = 0);
End;
全部回答
- 1楼网友：低血压的长颈鹿
- 2021-03-28 05:11
递归 加点分我给你贴个源码追问不用了，我已搞定
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯