Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-02-2011
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
Question ¿Opendialog como Procesar archivos por lote?

Tengo una duda.

al usar el componente Opendialog.
se puede elegir un solo archivo y pasar la ruta
de ese archivo a una variable String.

¿como se pueden seleccionar multiples archivos?
lo que quiero es pasar las rutas a un stringlist
usando el opendialog para seleecionar todos los archivos.


Gracias.
Responder Con Cita
  #2  
Antiguo 02-02-2011
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Creo que para ese propósito iría mejor un TfileListBox.

Yo lo uso así:

Código Delphi [-]
Procedure Haz_Copia(cPuesto:String;cDestino:String);
var
n:Integer;
cFichero:String;
pOrigen,pDestino:Pchar;
begin

Pon_Rayas();

  For n:=0 to frCopiaSeg.flbficheros.Items.count - 1 do
  begin
  cFichero:=PChar(frCopiaSeg.flbFicheros.Items[n]);
  pOrigen:=PChar(cOrigen+cFichero);
  pDestino:=Pchar(cDestino+cFichero);
  frCopiaSeg.mVisor.Lines.Add('Añadiendo '+pDestino);

  Application.ProcessMessages;
    try
    nFicheros:=nFicheros + 1;
    nFichero:=nFichero + 1;
    CopyFile(pOrigen,pDestino,False);
    Except
    frCopiaSeg.mVisor.Lines.Add('NO SE PUDO REALIZAR LA COPIA EN:'+cPuesto);
    end;
   frCopiaSeg.pnMsge.Caption:='Copiando fichero Núm. '+FormatFloat(',0',nFicheros)+' :'+cFichero+' a '+cDestino;
  end;

Pon_Rayas();
frCopiaSeg.mVisor.Lines.Add('Se copiaron '+FormatFloat(',0',nFichero)+' Ficheros .');
Pon_Rayas();
end;
Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
  #3  
Antiguo 02-02-2011
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por JXJ Ver Mensaje
¿como se pueden seleccionar multiples archivos?
lo que quiero es pasar las rutas a un stringlist
usando el opendialog para seleecionar todos los archivos.
Activa la opción ofAllowMultiSelect del cuadro de diálogo. Los archivos seleccionados los tendrás en la propiedad Files, que es de tipo TStrings.

// Saludos
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
¿como Procesar listado en archivos INI? JXJ Varios 11 09-02-2011 05:00:38
Procesar archivos inmediatamente despues de su copiado o transferencia. fredycc OOP 3 17-02-2009 21:30:53
abrir archivos con OpenDialog y ShellExecute thelibmx Varios 5 06-09-2007 22:19:44
Como procesar la excepción de violación de clave? ReyQ MS SQL Server 3 16-09-2005 11:15:55
Procesar Archivos de Texto delimitados por TAB para luego import en Access dago_Ariza Conexión con bases de datos 1 13-05-2004 10:24:39


La franja horaria es GMT +2. Ahora son las 12:32:15.


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
Copyright 1996-2007 Club Delphi