Abrir documento con nombre especifico.

[BuRtOn]

Ejecuta, pero no sucede nada....ya estoy estrezado.........es que dec parte del codigo del shellexecute , no se si la sintaxis está bien o mal, o la sintaxis logica que llamamos nostros....se supone que el shellexecute debe ejecutar el archivo que yo deseo, el que escribi en el edit...

[dec]

Hola,

Llama la atención que usas una ruta absoluta para comprobar si el archivo existe, pero, a la hora de ejecutarlo sólo proporcionas una ruta "relativa" (el nombre del archivo). Tal vez por eso no funciona, simplemente. Sea como sea igual te interesa conocer el resultado de la función "ShellExecute()", para actuar en consecuencia.

[BuRtOn]

Uso una ruta, por que alli es donde se van a almacenar todos los archivos .xls.......y el nombre pues para llamar al archivo que yo estoy buscando...

[dec]

Hola,

Pero, lo mismo que para comprobar la existencia del archivo usas una ruta absoluta, no sólo el nombre del archivo, en "ShellExecute()" debes también hacer lo propio. En realidad debes usar la misma ruta en ambos casos, de modo que, para empezar, podrías escribir algo así:

Código Delphi [-]
procedure TfrmReportes.LbSpeedButton3Click(Sender: TObject);
var
  filePath: String;
begin
  filePath := 'D:\Giros\'+edtBusqueda.text+'.xls';

  If FileExists(filePath) then begin
   shellexecute(Handle, 'open', PChar(filePath), '', '', SW_show);
  end;

end;

[[Caral]]

Hola

Código Delphi [-]
procedure TfrmReportes.LbSpeedButton3Click(Sender: TObject);
begin
If FileExists('D:\Giros\'+edtBusqueda.text+'.xls')= True
begin
 shellexecute(Handle, 'open', +edtBusqueda.text+'.xls', '', '', SW_show);
end;

Saludos

[BuRtOn]

Saludos, jeje , caral el codigo que yo tenia no funciono, creo que lo que Dec me dijo de crear una variable de ruta si funciono, problema listo y solucionado, gracias amigos por su colaboración , espero algun dia ser como ustedes de pilos en delphi....