FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Borrado de un directorio
Holas amigos.
Mi problema es el siguiente cunado cierro una aplicacion tengo que borrar el contenido de un directorio y todo lo que hay dentro de él, como lo tengo hecho me borra el contenido del directorio pero el directorio no se borra, el error que me da es el I/O Error 145, el cual significa que el directorio esta vacio, tampoco hay archivos ocultos, aqui os muestro el procedimiento: procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); var i:integer; diractual:boolean; begin Close; //Borramos los archivos temporales usados Deletefile(PChar(contmp)); Deletefile(PChar(temporalwpa)); Deletefile(PChar(estilotmp)); //Borramos de la carpeta plantillaswpa el archivo estilo.css si existe if FileExists(ExtractFilePath(Application.ExeName) + 'plantillaswpa\estilo.css') then begin DeleteFile(PChar(ExtractFilePath(Application.ExeName) + 'plantillaswpa\estilo.css')); end; if DirectoryExists(PChar(ExtractFilePath(Application.ExeName) +'plantillaswpa\imgs')) then begin for i:=1 to ndiapos do begin deletefile(PChar(ExtractFilePath(Application.ExeName) + 'plantillaswpa\imgs\' + 'tmp' + IntToStr(i) + '.jpg')); end; diractual:=SetCurrentDir(ExtractFilePath(Application.ExeName) + 'plantillaswpa'); RmDir(ExtractFilePath(Application.ExeName) + 'plantillaswpa\imgs\'); end; end; Gracias por adelantado |
#2
|
||||
|
||||
Hola... con este código puedes eliminar un directorio y su contenido, pero ojo que no va a la papelera
Para mostrar código usa las etiquetas delphi --> [ delphi ] al comenzar y --> [ /delphi ] al finalizar (sin los espacios), verás que es mucho más comoda la lectura. Feliz día del trabajador a todos/as Saludos
__________________
Por qué todas las personas saben exactamente cómo debemos vivir nuestra vida, y nunca tienen idea de cómo deben vivir sus propias vidas.
Última edición por Pablo Carlos fecha: 02-05-2005 a las 00:03:42. Razón: aclarar uso de etiquetas |
#3
|
||||
|
||||
También puedes probar con un par de trucos que hay en la sección de Trucos del club Delphi:
http://www.clubdelphi.com/trucos.php El 333 y el 310 se refieren a borrar un directorio completo. Puedes echarles un vistazo a ver si te dan alguna idea diferente.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|