FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Lo que faltaba...MS patenta el proceso para apagar un pc por software | AzidRain | Noticias | 9 | 03-09-2010 16:30:37 |
Mensaje para Apagar Windows | yoennis | Varios | 5 | 04-04-2009 21:14:36 |
Programa para apagar computadora | Tapax | C++ Builder | 1 | 16-07-2006 02:42:20 |
Funcion para apagar el Pc en Xp | Jan_polero | API de Windows | 1 | 28-10-2004 14:33:08 |
Funcion o Procedure | @-Soft | Conexión con bases de datos | 3 | 01-11-2003 12:53:48 |
|