FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#21
|
||||
|
||||
gdlrinfo,
Cita:
Revisa este código: El código anterior en Delphi 7 bajo Windows 7 Professional x32, es la versión 3 del código propuesto en el Msg #3 el cual permite: copiar de forma recursiva todos los archivos de un directorio y subdirectorios fuente a un directorio destino en función de una mascara de copia. El código del ejemplo esta disponible en el link : CopyFiles.rar Nota: 1- La copia de archivos se hace por medio de un hilo, lo cual permite que la aplicación no se bloque durante el proceso. 2- En el caso de haber archivos en el directorio y subdirectorios fuente con el mismo nombre, estos se copiaran al directorio destino con el mismo nombre más un prefijo (_Número), que indica la cantidad de veces que el archivo se repite, ejemplo: File.txt, File_1.txt, File_2, ... , File_N.txt 3- En el ejemplo, solo puede estar un hilo de copia activo a la vez, esto se puede modificar fácilmente para tener varios procesos de copia activos según se requiera. 4- Por simplicidad de código, solo se incluyo como referencia visual un contador de copia (Copiado XX de YY), que indica el archivo que esta siendo copiado en un momento determinado al directorio destino. 5- Si no se especifica la extensión de los archivos a copiar (TCopyFiles.FileExt), se copiaran todos los archivos recursivamente del directorio fuente al destino. 6- Si se especifica una nueva extensión (TCopyFiles.FileExtNew), se copiaran todos los archivos recursivamente del directorio fuente al destino con la nueva extensión. 7- Se pueden excluir archivos de la copia por medio de TCopyFiles.FilesExcluded, el cual permite crear una lista (TStringList) de nombres parciales o completos de archivos que no serán incluidos en la copia, ejemplo : Si se quiere excluir de la copia los archivos FileX1.rtf, FileX2.rtf y FileX3.rtf se puede realizar de las siguientes formas: ó ó La exclusión de archivos es Case Insensitive La opción de exclusión, tiende a disminuir los tiempos de copia según se muestra en la siguiente prueba: 1- 169 Files RTF, 2.19 GB Tamaño Total -> 00:01:55 (Sin exclusión) 2- 169 Files RTF, 2.19 GB Tamaño Total -> 00:01:38 (Con exclusión de 3 tipos de archivos) Espero sea útil Nelson. Última edición por nlsgarcia fecha: 11-10-2014 a las 05:54:44. |
#22
|
||||
|
||||
Hola gdLrinfo.
[quote=gdlrinfo;482917] Cita:
Cita:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#23
|
||||
|
||||
Hola gdlrinfo.
Me quedé pensando que quizá te resulte mejor cotejar con el código fuente, así que te lo adjunto. Es la versión para Delphi 7, así que no olvides reemplazar en la unidad uCopyAll todas las ocurrencias de PAnsiChar por PWideChar (Search->Replace). Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#24
|
|||
|
|||
Muchassss Graciasssss
Chicos la verdad estoy muy agradecido por su ayuda, los foros funcionan gracias a personas como ustedes que se preocupan y nos ayudan a quienes somos novatos, a salir adelante con nuestros proyectos gracias por todo, ni bien arme todo estaré escribiendo nuevamente y agradecido por su apoyo es bueno ayudar sin pedir nada a cambio eso hace la grandeza de las personas muchas gracias !!!!!
|
#25
|
|||
|
|||
Incluir
Hola muchachos recuerdo cuando me dieron una mano con esto ahora tengo una duda asi como se excluyen se pude hacer que en vez de excluir incluya ? gracias como siempre !!!
|
#26
|
||||
|
||||
Hola gdIrinfo.
Cita:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#27
|
|||
|
|||
Geniallll gracias nuevamente!!! Atte. Gonzalo
|
#28
|
|||
|
|||
[quote=ecfisa;499607] [quote=ecfisa]
Perdon mi ignorancia pero no encuentro esto que me decis Aca---
|
#29
|
|||
|
|||
Graciasss
Estaba de otra manera no me había dado cuenta muchas gracias funciona a la perfección!!! atte. Gonzalo
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Búsqueda de archivos ordenada por fecha | Faust | Varios | 10 | 26-07-2010 16:43:21 |
Habilitar Boton de Busqueda al enfocar Objetos Especificos | ygkw | API de Windows | 6 | 01-11-2006 15:53:11 |
Busqueda de archivos | jdattoli | OOP | 1 | 26-08-2005 19:44:24 |
Busqueda de Archivos | jorgito | PHP | 7 | 03-08-2005 18:50:04 |
Busqueda de archivos | Nathan | Varios | 1 | 17-03-2004 17:27:38 |
|