Como listar los archivos de un determinado directorio al dar click en un boton?
 

Hola, Buenas tardes

Hoy de nuevo estoy en busca de su ayuda, estoy haciendo una aplicacion en delphi, donde tengo un boton, al apretarlo debe verificar dada una ruta especifica (Ej. C:\proyectos\1) despues del 1 debo verificar si hay carpetas, obtener sus nombres para guardarlos en una variable y verificar si tienen contenido las carpetas, si existe tiene que subir el contenido a un servidor (Por ahora solo quiero verificar, mostrar el resultado en consola) si no existe, solo omitir

Estoy atorado en ese sentido, soy nuevo en el lenguaje y me cuesta un poco estas cosas de inspecciones. Espero puedan ayudarme, Muchas Gracias.

:confused:

Como listar los archivos de un determinado directorio al dar click en un boton?
 

Disculpa, para implementarlo en un botón? que al dar click me regrese los nombres de los archivos encontrados en subcarpetas (En este caso solo serian imagenes las que contengan en las carpetas) tengo el path hasta lo que es estatico, despues de cierta ruta, las subcarpetas pueden variar, depende de quien acceda a ese path.

Hola Missael.

El foro Trucos no es para plantear dudas sino para presentar código novedoso o que resuelve determinadas problemáticas.

Moví tu mensaje desde el hilo: Listar los archivos de un determinado directorio, como un nuevo tema al foro correspondiente.

Saludos :)

Hola nuevamente.

Un ejemplo que implementa el procedimiento de dec en el evento OnClick de un TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    ArchivosDirectorio('C:\Windows\', '*.*',  TS, True);
    ListBox1.Items.Assign(TS);
  finally
    TS.Free;
  end;
end;

Saludos :)

En el primer ítem del listado de abajo "Temas Similares" encuentras la respuesta

También preguntaste el otro día aquí.

Podría implementar ese código en un botón? si es así, podrían explicarme como?, soy nuevo en delphi, se los agradecería mucho.

también tengo la duda de como usar un procedure con parámetros dentro de otro procedure. como para ejecutar el procedure y ahorrar lineas de código de mas.

:D :rolleyes: :confused:

La Cara Oculta De Delphi
Nuestra guía de estilo.

Ya son tres o cuatro mensajes en distintos hilos preguntando por lo mismo, los he unido.
Saludos.

Una disculpa, soy nuevo tambien en esto de preguntar en foros, solo espero puedan responder mi ultima pregunta. muchas gracias

Pues eso se soluciona leyendo nuestra guía de estilo :)
En cuanto al código al pulsar un botón, eso es precisamente lo que te ha contestado algún compañero.

Gracias por la respuesta, lo que me tiene mas en duda es revisar los subdirectorios, como tengo un path especifico, hay dos tipos de archivos, uno contiene mas subcarpetas que el otro, pero ambos tienen el mismo path hasta cierta carpeta, y solo quiero que me mande un mensaje nombrando todos los archivos encontrados en las subcarpetas.

esta el codigo de la seccion trucos pero como lo implemento en un boton?

¿Que tanto tienes elaborado?

Código Delphi [-]
procedure TForm2.UploadClick(Sender: TObject);
begin
  time := milli(Now);
  times := IntToStr(time);
  //ShowMessage('19'+times);
  path := ''+Choose+'\exportGeneralInstructions'+fileName+'\qcExcel\'+json+'\productReport\';
  if (FindFirst(path + '*' , faArchive, sr )  and FindFirst(path + '*' , faDirectory, sr )) = 0 then
  begin
  repeat
    //if (sr.Attr and faArchive) = faArchive then
      ShowMessage('File Name: '+ sr.Name);
      if DirectoryExists(sr.name) then
      else
      begin
        path := path + sr.Name; 
      end;

  until FindNext(sr) <> 0;

  end
  else
    begin
    ShowMessage('Files not found');
    end;
    FindClose(sr);
    res := '{"localid":"15'+times+'-'+path+'\","deviceid":"windowsapp","createddate":15'+times+',"userid":0,"qaqcid":'+json+'}';
end;

Tengo eso, ahorita lo que estoy haciendo (no se si sea lo correcto) es agregar al path el nombre de la carpeta, de ahi seguir inspeccionando una por una, hacer un ciclo, que lo haga hasta que ya no encuentre carpetas por revisar
Choose: es la direccion que escoge el usuario a guardar sus archivos que se descomprimen automaticamente

los otros valores son de un json.