[VFP] Restringir *.* a GETFILE()

[ZeRoberto]

Existe una forma de quitarle el *.* al GetFile(), solo quiero que seleccione las extensiones que yo le defina

Saludos

[Marcelo Barberis]

Te paso algo que esta en el boton de agregar imagen

LOCAL valor

valor=GETPIC("jpg;png;bmp;ico;gif")
cSelected=RIGHT(ALLT(VALOR),4)

IF !EMPTY(valor)
    IF ".BMP"$cSelected OR ".ICO"$cSelected OR ".JPG"$cSelected OR ".GIF"$cSelected OR ".PNG"$cSelected
        THISFORM.TXTEmblemaImg.Picture  = allt(valor)
    ELSE
        THISFORM.TXTEmblemaImg.Picture  = ''
         WAIT "Los Formatos de Imagen permitidos son: BMP, ICO, JPG, GIF y PNG..." WINDOW AT 16, 50
    ENDIF
ENDIF && EMPTY   

El 4 de marzo de 2013 17:19, ZeRoberto <zero...@gmail.com> escribió:

Existe una forma de quitarle el *.* al GetFile(), solo quiero que seleccione las extensiones que yo le defina

Saludos

--
Ing. Marcelo Barberis Gutierrez
Sistemas Informaticos Inc
Villa Montes - Bolivia
Telef.: +591-76831064

[Luis Mata]

ZeRoberto

 

Si fueras tan amable de pasarme el programa que utilizas para colocar esos marcadores en la imagen.

[Ing.Daniel Bojorge]

Estimado Luis Mata, no sé qué programa use, pero yo utilizo el FastStone Capture 7.3, el cual hice portable yo mismo.

Si alguien le interesa.

http://tinyurl.com/bq3jbmb

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)

[Jairo Miranda]

En el siguiente código solo debes modificar la cláusula que indica el tipo de archivo a subir.  Creo que el autor del codigo es LUIS MA

 

Set safety off

Public m.htmfiles, lnCurrent, lnPerRow

    lnCurrent=0

    cRuta = GetDir()

   

    lnImages = adir(arrImages,cRuta + '\*.mp3')

 

    Create cursor myImages (ImagePath c(80),FirstName c(20), LastName c(20))

 

    For ix=1 to lnImages

      Insert into myImages values ;

        (cRuta + arrImages[ix,1],;

          SUBSTR(cRuta+ arrImages[ix,1],RAT("\",cRuta+ arrImages[ix,1],1)+1,LEN(cRuta+ arrImages[ix,1])),;

          "lastname"+[ix,1])

    Endfor

  

    *SELECT articulos SUBSTR(m,1,aT(".",M)-1)

    PUBLIC m.LastName, m.ImagePath

    GO top

    DO WHILE !EOF()

       replace  LastName WITH SUBSTR(FirstName,1,RAT(".",FirstName)-1)

 

       skip

    enddo

 

 

brow

 

JM

[Jairo Miranda]

Yo ejecuto el siguiente codigo

 

Set safety off

Public m.htmfiles, lnCurrent, lnPerRow

    lnCurrent=0

    cRuta = GetDir()

   

    lnImages = adir(arrImages,cRuta + '\*.mp3')

 

    Create cursor myImages (ImagePath c(80),FirstName c(20), LastName c(20))

 

    For ix=1 to lnImages

      Insert into myImages values ;

        (cRuta + arrImages[ix,1],;

          SUBSTR(cRuta+ arrImages[ix,1],RAT("\",cRuta+ arrImages[ix,1],1)+1,LEN(cRuta+ arrImages[ix,1])),;

          "lastname"+[ix,1])

    Endfor

  

    *SELECT articulos SUBSTR(m,1,aT(".",M)-1)

    PUBLIC m.LastName, m.ImagePath

    GO top

    DO WHILE !EOF()

       replace  LastName WITH SUBSTR(FirstName,1,RAT(".",FirstName)-1)

 

       skip

    enddo

 

 

Me trae una lista de todos los archivos mp3 de la carpeta,  ahora lo que deseo es como obtener las propiedades de cada  archivo, como por ejemplo, autor, genero, etc

JM

[ZeRoberto]

SET SARCASM ON

Ahhhh! porque mejor no lo subiste a una pagina CHINA, mi dominio en el idioma RUSO no es tan buena..

SET SARCASM OFF

Saludos

[Ing.Daniel Bojorge]

Mil disculpas, puse el enlace, yo uso el Chrome y pues ahí es más sencillo que traduzca las cosas, pero el que no lo usa, le dejo este pequeño videito que hice hace bastante tiempo.

http://www.youtube.com/watch?v=cqz9zy_81aw

Dios L@s Bendiga

Saludos,

Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com

Nicaragua

"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)