Directorio predeterminado de búsqueda de archivos con TOpenDialog

[ecfisa]

Hola shoulder.

Si no vacias la propiedad FileName se sobreescribirá el valor de InitialDir. Para conservar el valor de FileName y luego utilizarlo, podrías hacer:

Código Delphi [-]
...
implementation

var
  SelectedFileName: string;  // almacena valor de propiedad FileName

procedure TForm1.FormCreate(Sender: TObject);
begin
  with OpenDialog1 do
  begin
    InitialDir:= 'C:\WINDOWS';
    //...
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
    begin
      SelectedFileName := FileName;
      FileName         := '';
      //...
    end;
end;

Saludos

[shoulder]

Hola me sigue dando el mismo error, lo extraño es que si como inicio coloco el directorio c:\carga despues cambio directorio, cierro el programa y lo recompilo y me abre en el nuevo directorio ultimo elegido no hace caso al inicialdir.

[jafera]

Yo utilizo este codigo y el cambio se realiza correctamente.

Código Delphi [-]
OpenDialog1.Filename:='';
                OpenDialog1.InitialDir:='C:\Rebuts_1.0\Fitxers\Rebuts\Capçalera';
                F_Confirmacio := TF_Confirmacio.Create(self);
                F_Confirmacio.Label1.Caption := 'Importem arxiu capçalera';
                try
                        if F_Confirmacio.ShowModal = mrok then
                        begin
                                CSVCap_Hist.Close;
                                if OpenDialog1.Execute then
                                begin
                                        CSVCap_Hist.Filename := OpenDialog1.FileName;
                                end;
                                CSVCap_Hist.Open;

En el opendialog y como initialdir tengo puesto:

C:\Rebuts_1.0\Fitxers\

Saludos

Josep

[shoulder]

Gracias ahi lo solucione, mi error era si escribo c:\carga en initialDir (no funciona) si escribo c:\carga\ funciona, e hice una pequeña rutina para que siempre controle si esta en el Dir. correcto.
Les dejo como me quedo:

Código Delphi [-]
var
openDialog6 : TOpenDialog;    // Open dialog variable
fijarse : string;
begin
openDialog6 := TOpenDialog.Create(self);
opendialog6.InitialDir:= 'C:\carga\';
openDialog6.Filter := 'Pdf files (*.pdf)|*.PDF'; ; ;
// Only allow existing files to be selected
openDialog6.Options := [ofFileMustExist];
// Allow only .dpr and .pas files to be selected

with OpenDialog6 do
    if Execute then
     begin
       fijarse := ExtractFileDir(OpenDialog6.FileName);
       if fijarse <> 'C:\carga' then
         begin
          showmessage('Los archivos deben grabarse y buscarse dentro de c:\carga');
          edit17.Clear;
         end
       else
           edit17.Text := ExtractFileName(OpenDialog6.FileName);
     end;

[ecfisa]

Hola shoulder

Empezado por shoulder

Hola me sigue dando el mismo error, lo extraño es que si como inicio coloco el directorio c:\carga despues cambio directorio, cierro el programa y lo recompilo y me abre en el nuevo directorio ultimo elegido no hace caso al inicialdir.

Si, vas a tener que almacenar la ruta también...

Código Delphi [-]
...
implementation

var
  InitialDir  : string = 'C:\WINDOWS';
  SelFileName : string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.FileName:= '';
  OpenDialog1.InitialDir := InitialDir;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
    begin
      SelFileName := FileName;    // salvar nombre
      FileName    := '';
      InitialDir  := InitialDir;  // restaurar ruta        
      ShowMessage(SelFileName);
    end;
end;

Saludos