Hola,tengo un problema que no resuelvo con este código:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
directorio_medio2,directorio_fecha:string;
DirInfo: TSearchRec;
r : Integer;


begin

r := FindFirst('C:\MEDIOS\MEDIO2\*.*', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
(DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
if DeleteFile(pChar('C:\MEDIOS\MEDIO2\' + DirInfo.Name))
= false then
{Si no puede borrar el fichero}
ShowMessage('Unable to delete : C:\MEDIOS\MEDIO2\' +
DirInfo.Name);
r := FindNext(DirInfo);
end;
SysUtils.FindClose(DirInfo);
//AQUI FALLA,NO BORRA DIRECTORIO MEDIOS
if RemoveDir('C:\MEDIOS\MEDIO2\') = false then

{Si no puedes borrar el directorio}
ShowMessage('Unable to delete dirctory : C:\MEDIOS\MEDIO2');





directorio_medio2:='C:\MEDIOS\MEDIO2\';
directorio_fecha:=IntToStr(Trunc(Now*24*3600*60));
//C:\MEDIOS\MEDIO2\4234232
directorio_medio2:=directorio_medio2+directorio_fecha;

//Crea la ruta anterior
ForceDirectories(directorio_medio2);
//traspasa el fichero de un lado para otro
CopyFile(PChar('C:\FOTO_PARA_IMPRIMIR\foto_a_imprimir.bmp'),PChar(directorio_medio2+'\'+'foto_a_imprimir.bmp'),false);

end;

//No me borra el directorio C:\MEDIOS, y a parte cada vez que pincho boton me crea carpetas directorio_fecha.
Lo que quiero es que cada vez que pinche boton obtenga
una ruta como esta //C:\MEDIOS\MEDIO2\4234232,donde
se borre contenido de MEDIO2 borrando a los directorios_fecha,y quedando sólo guardado el último
directorio_fecha e MEDIO2.

Saludos.Si Podéis probar mi código y decirme que está
mal y cómo rectificarlo.

Responder