poner el foco dentro del opendialog

[lucasarts_18]

Hola:

Adaptando el código de marcoszorrilla, podemos comprobar que ese fichero exista realmente, que es otro asunto que pide velia:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
 
   archivo : String;
 begin
   archivo := 'acceso.txt';
   opendialog1.FileName := archivo;
   opendialog1.Filter := 'Mis_Zips (*.txt)|Acc.txt';
 
   if opendialog1.Execute then
     if not fileexists('acc.txt') then
       showmessage('no existe');
 end;

Espero que te sirva

[Velia]

Una vez mas gracias por la ayuda
Saludos
Velia

[jachguate]

Empezado por lucasarts_18

Adaptando el código de marcoszorrilla, podemos comprobar que ese fichero exista realmente, que es otro asunto que pide velia:

En lugar de esto, yo aconsejaría activar la opción "ofFileMustExist" de la Options del OpenDialog. De esa forma el usuario se ve obligado a seleccionar un nombre de archivo que exista dentro de este.

Hasta luego.

[lucasarts_18]

Empezado por jachguate

En lugar de esto, yo aconsejaría activar la opción "ofFileMustExist" de la Options del OpenDialog. De esa forma el usuario se ve obligado a seleccionar un nombre de archivo que exista dentro de este.

Interesante....