Funcion o procedure para apagar sub carpetas

[Paulao]

Hizo una funcion y ella estas apagando la carpeta y sus subcarpeta, pero mi gustaria de apagar solamente las subcarpetas. Abajo mi funcion:

function TForm1.DeleteFolder(FolderName: String;
  LeaveFolder: Boolean): Boolean;
var
  r: TshFileOpStruct;
begin
  Result := False;
  if not DirectoryExists(FolderName) then
  Exit;
  if LeaveFolder then
  FolderName := FolderName + ' *.* '
  else
  if FolderName[Length(FolderName)] = ' \ ' then
  Delete(FolderName,Length(FolderName), 1);
  FillChar(r, SizeOf(r), 0);
  r.wFunc := FO_DELETE;
  r.pFrom := PChar(FolderName);
  r.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  Result := ((ShFileOperation(r) = 0) and (not r.fAnyOperationsAborted));
end;

[Casimiro Notevi]

¿A qué te refieres con "apagar"?

[[oscarac]]

creo que el amigo es portugues.. apagar sera eliminar por lo que veo en su funcion..

[Casimiro Notevi]

Sí, nuestro amigo es de Brasil, es que me ha resultado extraño que usara "apagar" cuando en otros hilos ha usado "deletar". Pensaba que "apagar" era "deshabilitar".

[Paulao]

Perdon, por el error en el Español. Si, deletar es lo mismo que apagar para mi o eliminar para usteds. Es que tengo dos foros abierto y me olvido as veces para escribir. Ya hizo un post en español en un foro brasileño.