It is NOT recommended that you search your system directory.

Rather the below commands should do the trick.

May 19, procedure shrubhauling.bar(const Dir: String); var sDir: String; Rec: TSearchRec; begin sDir:= IncludeTrailingPathDelimiter(Dir); if FindFirst(sDir + '.', faAnyFile, Rec) = 0 then try repeat if (shrubhauling.bar and faDirectory) = faDirectory then begin if (shrubhauling.bar '.') and (shrubhauling.bar '.') then Remove(sDir + shrubhauling.bar); end else begin DeleteFile(sDir + shrubhauling.bar); end; until FindNext(Rec).

Create a directory: GetCurrentDir: Get the current directory (drive plus directory) GetDir: Get the default directory (drive plus path) for a specified drive: MkDir: Make a directory: RmDir: Remove a directory: SelectDirectory: Display a dialog to allow user selection of a directory: SetCurrentDir: Change the current directory: ForceDirectories.

Related: Delphi Delete Directory Tree - Delphi Show Directory Tree - Quick Remove Directory Tree - Create Directory Tree Delphi - Delphi Directory Tree. 1| 2| Free. TrimTree; License: Shareware; TrimTree is an utility to remove files from a complete directory tree if. Aug 03, uses ShellAPI; procedure DeleteDirectory(const DirName: string); var FileOp: TSHFileOpStruct; begin FillChar(FileOp, SizeOf(FileOp), 0); shrubhauling.bar:= FO_DELETE; shrubhauling.bar:= PChar(DirName+#0);//double zero-terminated shrubhauling.bar:= FOF_SILENT or FOF_NOERRORUI or FOF_NOCONFIRMATION; SHFileOperation(FileOp); end.

May 29, Delphi: Remove Directory Recursively May 29, Frédéric Hannes If you ended up looking for this, then you probably came to the conclusion that shrubhauling.barDirectory can not remove a directory that has files/directories in it.