Evitar Borrado de Carpetas

[*Caro*]

Empezado por lKinGl

.......... ya que si se elimina el software empezará a dar error de que no consigue la ruta

Hola, entonces deberías preguntar si la ruta existe.

Código Delphi [-]
 if DirectoryExists(Ruta) then
   showmessage('Existe el directorio');

Saluditos

[lKinGl]

de lo contrario que la cree verdad?

gracias por tu respuesta

[*Caro*]

O también la creas tu desde tu programa

Código Delphi [-]
 //Si no existe creamos el directorio
 if not DirectoryExists(Ruta) then
  CreateDir(Ruta);

Saluditos

[lKinGl]

Muchas gracias caro

[lKinGl]

Mi Código Final me quedó así

Código Delphi [-]
    if not DirectoryExists('Reportes\Recepciones\') then
      begin
        CreateDir('Reportes\Recepciones');
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end
      else
      begin
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end;

gracias por tu ayuda caro