FoxPro/Visual FoxPro - GetFile() - multifichero

   
Vista:

GetFile() - multifichero

Publicado por Juan Miguel solis.juanmiguel@gmail.com (79 intervenciones) el 14/02/2013 15:34:59
Hola a todos

Esto seguro que que se a hablado alguna vez por aquí, pero yo llevo poco tiempo entrado aquí :) :), en fin mi consulta es, ahora mismo sigo programando en VFP 6.0

Hay alguna función como el GetFile(), pero que se pueda recuperar mas de un fichero a la vez ??

Gracias anticipadas.

Un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

GetFile() - multifichero

Publicado por Fidel (558 intervenciones) el 15/02/2013 00:35:50
No conozco un GetFile que devuelva un array. Pero se puede crear
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
LOCAL ARRAY gaFiles(1)
nf=0
cDir=MiCurDir()
DO WHILE .t.
	cFile=GETFILE()
	IF !EMPTY(cFile)
		IF ASCAN(gaFiles,cFile)=0
			nf=nf+1
			DIMENSION gafiles(nf)
			gafiles[nf]=cFile
		ENDIF
 
	ELSE
		EXIT
	ENDIF
ENDDO
IF nf=0
	MESSAGEBOX("Nada seleccionado")
ELSE
	cSel=""
	FOR i=1 TO ALEN(gafiles)
		cSel=csel+gafiles[i]+CHR(13)
	NEXT
	MESSAGEBOX(csel)
ENDIF

Por cierto que es un tanto incómodo.

Conociendo la función ADIR(), con un poco de práctica en Listbox con MuliSelect=.T. , cierto dominio de Arrays y auxiliándote con un menú contextual, puedes lograr eso.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar