Foros Club Delphi - Funcion o procedure para apagar sub carpetas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Funcion o procedure para apagar sub carpetas (https://www.clubdelphi.com/foros/showthread.php?t=74951)

Funcion o procedure para apagar sub carpetas

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

Código:

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;

¿A qué te refieres con "apagar"? :confused:

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

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".

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.