FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Borrar archivos de un directorio
Quise usar los comandos FindFirst y FindNext para que borrara todos los archivos de un directorio, pero no pude hacer que funcionara, si bien copié literalmente un ejemplo de la ayuda del delphi. ¿Alguien me puede explicar bien cómo puedo hacer eso?
|
#2
|
|||
|
|||
Prueba esto, ya se publicó en este foro y a mí me ha ido bien
------------ procedure TMain.RmDirectorio(directorio: string); var r: integer; DirInfo: TSearchRec; begin r := FindFirst(directorio+'*.*', FaAnyfile, DirInfo); while r = 0 do begin if ((DirInfo.Attr AND FaDirectory <> FaDirectory) AND (DirInfo.Attr AND FaVolumeId <> FaVolumeID)) then DeleteFile(pChar(AppPath+'temp\tmpcurso\' + DirInfo.Name)); r := FindNext(DirInfo); end; SysUtils.FindClose(DirInfo); RemoveDirectory(PChar(directorio)); end; ---------------- Un Saludo |
|
|
|