Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Obtener ruta de archivo a partir de directorio superior (https://www.clubdelphi.com/foros/showthread.php?t=87529)

pokexperto1 19-01-2015 00:15:20

Obtener ruta de archivo a partir de directorio superior
 
Si, ya se que el titulo a quedado muy bonito así pero realmente esa es la pregunta. (Soy un poco principiante asi que porfavor no tengais mucho en cuenta mi pregunta...)

Yo con un opendialog seleciono una carpeta y luego quiero que dentro de esa carpeta se vaya a otra que tiene y luego seleccione un archivo, pero todo dentro de esa carpeta donde inicialmente le he dado.
he intentado con:
Código Delphi [-]
with opendialog1 do 
DeleteFile(opendialog1.FileName + players2/config_mp.cfg);

pero como pensaba la ruta no se suma como si fuese una variable . ¿Como lo hago?

Gracias a todo aquel quien me pueda ayudar

nlsgarcia 19-01-2015 03:19:56

pokexperto1,

Cita:

...Obtener ruta de archivo a partir de directorio superior...(DeleteFile)...
:rolleyes:

Revisa este código:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;
begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Archivos a Borrar|*.*';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
      DeleteFile(openDialog.FileName);
   openDialog.Free;
end;
El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite borrar un archivo en un directorio cualquiera.

Revisa esta información:
Espero sea útil :)

Nelson.

pokexperto1 19-01-2015 18:32:18

Rw
 
No me lo ha solucionado pero gracias xD

nlsgarcia 19-01-2015 23:40:27

pokexperto1,

Cita:

...No me lo ha solucionado...
:rolleyes:

Pregunto : ¿Puedes explicar con mas detalle tu requerimiento?, ¿Puedes poner un ejemplo? :confused:

Saludos,

Nelson.

escafandra 20-01-2015 01:00:36

Creo que se refiere a esto:

Código Delphi [-]
uses FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
var
  Path: String;
begin
  if SelectDirectory('Borrar', '', Path) then
    DeleteFile(Path + '\players2\config_mp.cfg');
end;


Saludos.


La franja horaria es GMT +2. Ahora son las 19:06:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi