Delphi中如何删除当前目录下的一个指定的文件夹

来源：百度知道 编辑：UC知道 时间：2024/05/28 05:25:05
在Delphi里，怎样写这样一段代码。。

获取当前此程序的目录，并彻底删除目录中的一个指定名字的文件夹（文件夹里有文件）。

就这个，怎样写啊？

如果要删除目录中的一个文件夹里的其中3个文件又该怎么写啊？

我是菜鸟，别笑话我哈！

多给点分啊，delpath传你要删除的文件夹路径，子文件夹会一并删除。
procedure Tfrm_PaperIn.DelTEMPFiles(delpath: String);
Var
T:TSHFileOpStruct;
P:String;
begin
P:= delpath;//要删除的任意目录名
With T do
Begin
Wnd:= 0;
wFunc:= FO_DELETE;
pFrom:= Pchar(P);
pTo:= nil;
fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOERRORUI;//标志表明允许恢复，无须确认并不显示出错信息
hNameMappings:= nil;
fAnyOperationsAborted:= False;
End;
SHFileOperation(T);
end;

o(∩_∩)o...，同上就对了
要是不想删除到回收站了，就用下面的代码：

qTempFolder传路径，似乎要引用ShellAPI单元吧（忘记了）

function DeleteTempFolder(qTempFolder: PChar): Integer;
var
SR: TSearchRec;
FR: Integer;
begin
Result := 0;
if not DirectoryExists(qTempFolder) then
Exit;
try
if Copy(qTempFolder, Length(qTempFolder), 1) <> '\' then
qTempFolder := PChar(qTempFolder + '\');