FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
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 |
|
|
|