Seleccion de Multiples Archivos en VFP

830 views
Skip to first unread message

Sergio I. Santacruz Madrigal

unread,
Aug 6, 2013, 10:06:23 AM8/6/13
to mundovis...@googlegroups.com

Señores , Buen Día.

 

Como puedo realizar una selección multiple de archivos en VFP 9, algo como getfile() pero multiple.

 

Gracias,

 

Atentamente,

 

Sergio I. Santacruz Madrigal 
Bogotá, Colombia

                                                                                                                  


Este mensaje y sus adjuntos se dirigen exclusivamente a su destinatario, puede contener información privilegiada o confidencial y es para uso exclusivo de la persona o entidad de destino. Si no es usted. el destinatario indicado, queda notificado de que la lectura, utilización, divulgación y/o copia sin autorización puede estar prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción.

The information contained in this transmission is privileged and confidential information intended only for the use of the individual or entity named above. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this transmission in error, do not read it. Please immediately reply to the sender that you have received this communication in error and then delete it.

Esta mensagem e seus anexos se dirigem exclusivamente ao seu destinatário, pode conter informação privilegiada ou confidencial e é para uso exclusivo da pessoa ou entidade de destino. Se não é vossa senhoria o destinatário indicado, fica notificado de que a leitura, utilização, divulgação e/ou cópia sem autorização pode estar proibida em virtude da legislação vigente. Se recebeu esta mensagem por erro, rogamos-lhe que nos o comunique imediatamente por esta mesma via e proceda a sua destruição

 

Alfonso Ramirez Diaz

unread,
Aug 6, 2013, 10:14:15 AM8/6/13
to mundovis...@googlegroups.com
Puedes usar el comando ADIR talvez y en un formulario usar un control GRID para seleccionar los archivos, te paso algo rápido de como podría ser

CREATE TABLE archivos ( archivo c(100), seleccion n(1) )

lnFiles = ADIR(aFiles)
FOR i=1 TO lnfiles
INSERT INTO archivos ( archivo, seleccion ) VALUES ( aFiles(i,1), 0 )
ENDFOR

SELECT archivos
GO TOP
BROWSE
USE IN archivos



--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
 
 



--


Alfonso Ramirez Diaz
Gestpyme - Informática y Gestión
Fono: 055-833233
Móvil: 09-82239821

Sergio I. Santacruz Madrigal

unread,
Aug 6, 2013, 10:52:54 AM8/6/13
to mundovis...@googlegroups.com

Alfonso, Buen Día.

 

Gracias por el dato, pero la idea es que el usuario pueda seleccionar los archivos que se solicitan, para el caso es necesario seleccionar varios y quisiera disponer al usuario a seleccionar uno a uno em diferentes direcciones...

 

Navegando encontre el siguiente pero aun asi quedo atento alguna otra opción:

 

frmMyForm = CREATEOBJECT("Form")

FrmMyForm.AddObject("oleObject1","oleComDialObject")

WITH FrmMyForm.OleObject1

       .SetOptions()

       .showopen()

       nCaptura = ALINES(aCaptura,.FileName,CHR(0))

       ?nCaptura

       nReg = 0

 

       DO WHILE nReg < nCaptura

             nReg = nReg + 1

             ?aCaptura(nReg)

       ENDDO

      

ENDWITH

 

DEFINE CLASS oleComDialObject as OLEControl

       OleClass ="MSComDlg.CommonDialog.1"

       PROCEDURE SetOptions

             #define COMMDLOG_DEFAULT_FLAG 0x00080000

             #define COMMDLOG_RO 4

             #define COMMDLOG_MULTFILES 512

 

             This.Flags = COMMDLOG_DEFAULT_FLAG + COMMDLOG_RO + COMMDLOG_MULTFILES

             This.FileName = "*.pdf"

             *This.filter = "Stratus Log files|*.seq"

       ENDPROC

ENDDEFINE

 

Atentamente,

 

Sergio I. Santacruz Madrigal 
Bogotá, Colombia

                                                                                                                  


Este mensaje y sus adjuntos se dirigen exclusivamente a su destinatario, puede contener información privilegiada o confidencial y es para uso exclusivo de la persona o entidad de destino. Si no es usted. el destinatario indicado, queda notificado de que la lectura, utilización, divulgación y/o copia sin autorización puede estar prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción.

The information contained in this transmission is privileged and confidential information intended only for the use of the individual or entity named above. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this transmission in error, do not read it. Please immediately reply to the sender that you have received this communication in error and then delete it.

Esta mensagem e seus anexos se dirigem exclusivamente ao seu destinatário, pode conter informação privilegiada ou confidencial e é para uso exclusivo da pessoa ou entidade de destino. Se não é vossa senhoria o destinatário indicado, fica notificado de que a leitura, utilização, divulgação e/ou cópia sem autorização pode estar proibida em virtude da legislação vigente. Se recebeu esta mensagem por erro, rogamos-lhe que nos o comunique imediatamente por esta mesma via e proceda a sua destruição

 

Jose Oscar Vogel

unread,
Aug 6, 2013, 10:56:43 AM8/6/13
to mundovis...@googlegroups.com
hola

tambien puedes fijarte en ctl32_openfiledialog - a getfile() replacement class q se encuentra en http://www.ctl32.com.ar/ con esa clase te permite seleccionar varios archivos a la vez.-

saludos
Prof. Jose Oscar Vogel
Garuhapé - Misiones
CP 3334
Cel: 03743-15667526
MSN: oscar...@gmail.com
Twitter: @ovogel23
Facebook: oscarvogel

Alfonso Ramirez Diaz

unread,
Aug 6, 2013, 1:07:24 PM8/6/13
to mundovis...@googlegroups.com
Sergio.

Te envío la misma idea pero hecha como formulario.

Es un archivo .zip debes cambiarle la extensión


El 6 de agosto de 2013 10:06, Sergio I. Santacruz Madrigal <sisant...@hotmail.com> escribió:

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
 
 
multiple.zi_

Sergio I. Santacruz Madrigal

unread,
Aug 6, 2013, 1:16:38 PM8/6/13
to mundovis...@googlegroups.com

Jose , Buen Día.

 

Muchas gracias el control es excelente lo habia visto com otras soluciones pero es muy bueno... mil gracias.

 

Atentamente,

 

Sergio I. Santacruz Madrigal 
Bogotá, Colombia


Este mensaje y sus adjuntos se dirigen exclusivamente a su destinatario, puede contener información privilegiada o confidencial y es para uso exclusivo de la persona o entidad de destino. Si no es usted. el destinatario indicado, queda notificado de que la lectura, utilización, divulgación y/o copia sin autorización puede estar prohibida en virtud de la legislación vigente. Si ha recibido este mensaje por error, le rogamos que nos lo comunique inmediatamente por esta misma vía y proceda a su destrucción.

The information contained in this transmission is privileged and confidential information intended only for the use of the individual or entity named above. If the reader of this message is not the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this transmission in error, do not read it. Please immediately reply to the sender that you have received this communication in error and then delete it.

Esta mensagem e seus anexos se dirigem exclusivamente ao seu destinatário, pode conter informação privilegiada ou confidencial e é para uso exclusivo da pessoa ou entidade de destino. Se não é vossa senhoria o destinatário indicado, fica notificado de que a leitura, utilização, divulgação e/ou cópia sem autorização pode estar proibida em virtude da legislação vigente. Se recebeu esta mensagem por erro, rogamos-lhe que nos o comunique imediatamente por esta mesma via e proceda a sua destruição

 

Alfonso Ramirez Diaz

--

eduardo

unread,
Aug 7, 2013, 5:59:46 AM8/7/13
to mundovis...@googlegroups.com
Puedes utilizar la solución que publicaron anteriormente, agregando un campo logico
CREATE TABLE archivos ( archivo c(100), seleccion n(1),.f. as sel )
Luego cargas los archivos en el campo archivo, y usas el cursor en un grid para seleccionar los que quieras con el campo sel
Eduardo

 
Reply all
Reply to author
Forward
0 new messages