cbfans 2003-08-22 08:33:48

目录完全删除

...全文

37 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

codecb 2003-08-22

打赏
举报

delphi的你自己改吧

zjqyb 2003-08-22

打赏
举报

ShellApi

codecb 2003-08-22

打赏
举报

procedure Tform1.DeleteDirectory(strDir:String);
var
sr: TSearchRec;
FileAttrs: Integer;
strfilename:string;
strPth:string;
begin
strpth:=Getcurrentdir();
FileAttrs := faAnyFile;
if FindFirst(strpth+'\'+strdir+'\*.*', FileAttrs, sr) = 0 then
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
strfilename:=sr.Name;
if fileexists(strpth+'\'+strdir+'\'+strfilename) then
deletefile(strpth+'\'+strdir+'\'+strfilename);
end;
while FindNext(sr) = 0 do
begin
if (sr.Attr and FileAttrs) = sr.Attr then
begin
strfilename:=sr.name;
if fileexists(strpth+'\'+strdir+'\'+strfilename) then
deletefile(strpth+'\'+strdir+'\'+strfilename);
end;
end;
FindClose(sr);
removedir(strpth+'\'+strdir);
end;
end;

# 插入、更新与删除数据 MySQL中提供了功能丰富的数据库管理语句，包括有效地向数据库中插入数据的 INSERT 语句，更新数据的UPDATE语句以及当数据不在使用时删除数据的DELETE 语句等。 # 高阶 DML 操作将...

在使用 Python 进行文件操作时，我们经常会使用 shutil 库中的 rmtree() 方法删除目录。...Python 的 shutil.rmtree() 方法可以方便地删除目录及其内容，但需要注意的是，在使用该方法前必须保证目录为空。