Código de FoxPro/Visual FoxPro

Código de FoxPro/Visual FoxPro - GETFILE extendido

GETFILE extendido

FoxPro/Visual FoxPro

Publicado el 9 de Octubre del 2014 por Diego (4 códigos)

3.593 visualizaciones desde el 9 de Octubre del 2014

Funcion para posicionar el selector de archivo GETFILE en un directorio determinado, una tema que siempre molesta al momento de querer que el operador acceda directamente a un directorio que el programador necesita determinar
Ejemplo:
XARCHIVO=GETFILEX("C:\MAIL","XLS; XLSX","Leyenda Archivo:","Dato en Boton",1,"Titulo")

1

Publicado el 9 de Octubre del 2014

gráfica de visualizaciones de la versión: 1

3.594 visualizaciones desde el 9 de Octubre del 2014

FUNCTION GetFileX(tcRuta, tcExtension, tcLeyenda, tcBoton, tnBoton, tcTitulo)

  LOCAL lcDirAnt, lcGetPict

  tcRuta = IIF(NOT EMPTY(tcRuta) AND DIRECTORY(tcRuta,1),tcRuta,"")

  tcExtension = IIF(EMPTY(tcExtension), "", tcExtension)

  tcLeyenda = IIF(EMPTY(tcLeyenda), "", tcLeyenda)

  tcBoton = IIF(EMPTY(tcBoton), "", tcBoton)

  tnBoton = IIF(EMPTY(tnBoton), 0, tnBoton)

  tcTitulo = IIF(EMPTY(tcTitulo), "", tcTitulo)

  lcDirAnt = FULLPATH("")

  SET DEFAULT TO (tcRuta)

  lcGetPict = GETFILE(tcExtension, tcLeyenda, tcBoton, tnBoton, tcTitulo)

  SET DEFAULT TO (lcDirAnt)

  RETURN lcGetPict

ENDFUNC

Comentarios sobre la versión: 1 (0)

No hay comentarios

Comentar la versión: 1

http://lwp-l.com/s2782

Enviar Mail con CDO

Secreto en CONFIG.FPW

Código de FoxPro/Visual FoxPro - GETFILE extendido

1

Comentarios sobre la versión: 1 (0)

Comentar la versión: 1

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.