Delete a folder recursivly

Hi there I am trying to work on a solution to delete a folder recursivly.
I have tried various solutions that have been posted up on the Net but none seem to work for me.
At the moment I have a solution that delete all files inside a folder and subfolders but does not delete folders.
I am not sure why.
The function I am using to remove folders is called RemoveDir.
It seems to be temproamental, that means that sometimes it deletes thema nd sometimes it does not.
I have wondered if this is because the folders maight be readonly.
I tried DeleteFile and this did not seem to work for Folders.


Here is an example that I found on the Net. It is typical of solutions that I am finding but they don't seem to work for me at all.

procedure DeleteFiles(sDir: string);
//Deletes all files in sDir
var
  MySearch: TSearchRec;
begin
  FindFirst(sDir+'\*.*', faAnyFile, MySearch);
   if (MySearch.Name<>'.')and
      (MySearch.Name<>'..') then
      DeleteFile(sDir+MySearch.Name);
  while FindNext(MySearch)=0 do
  begin
    if (MySearch.Name<>'.')and
      (MySearch.Name<>'..') then
      DeleteFile(sDir + '\' +MySearch.Name);  
  end;
end;

Here is a solution that I am working on.


Here is the one that I am using:

procedure TfrmUpdate.aDeleteFiles(sDir: string);
//Deletes all files in sDir
var
  MySearch: TSearchRec;
  sFile: string;
  sName : string;
begin
  sDir := IncludeTrailingBackslash(sDir);

  FindFirst(sDir+ '*.*', faAnyFile, MySearch);
  sName := MySearch.Name;
   if (sName<>'.')and (sName<>'..') then
   begin
    sFile := sDir+MySearch.Name;
    RemoveDir(sFile);
   end;
  while FindNext(MySearch)=0 do
  begin
    sName := MySearch.Name;

    if (MySearch.Name<>'.')and (MySearch.Name<>'..') then
    begin
      sFile := sDir+MySearch.Name;
      if MySearch.Attr = faDirectory then
      begin
        if not RemoveDir(sFile) then adeleteFiles(sFile);
      end else
      begin
        DeleteFile(sFile);
      end;
    end else
    begin
      sFile := trim((GoBackFilePath2(sFile,1)));
      RemoveDir(sFile);
    end;
  end;
end;


function GoBackFilePath2(sFilepath:string; iCount : integer):string;
{
Overhaul:
Date: 24/04/2006
Purpose: Now it will go back as many folders as indicated
}
var
  i,y : integer;
  sTemp : string;
begin

  if sFilepath <> '' then
  begin
    sTemp := ReverseString(sFilepath);
    y := 0;
    for i := 1 to iCount do
    begin
      y := PosEx('\',sTemp,y+1);
    end;
    result := MidStr(sFilePath,0,(length(sFilePath)-y));
  end else
  begin
    result := c_Null;
  end;
end;


The problem is I can't seem to find a function that will reliably delete a folder even if it is empty?!?
Can any one help me?

Kind regards
Myles