| Pregunta: | 66609 - AYUDA CON RUTA DE FOTOGRAFIAS |
| Autor: | Justino N. Camara |
| Buenas tardes amigos soy aprendiz de Vfox y estoy haciendo un pequeño sistemita el cual en el formulario de empleados al llenarlo llego a un campo donde abre una fotografia y esta trabaja bien pero necesito que la fotografia se guarde en una ruta especifica y en el campo ruta me de la ruta destino osea donde se guardo solo puse esto img = GETFILE("JPG, BMP, GIF","Ingrese") thisform.pageframe1.page2.Image1.Picture = img thisform.pageframe1.page2.textruta.value = JUSTFNAME(thisform.pageframe1.page2.image1.Picture) lcDir2 = "Z:fotografias" Copy File (img) To (lcDir2) pero no se como hacer para que en el campo llamod text2 me de la ruta donde se guardo en espera de su valios ayuda desde ya les agradezco mucho su ayuda | |
| Respuesta: | Justino N. Camara |
| muchas gracias a todos por sus respuestas ya me funciono | |
| Respuesta: | Jose Maria Vilar |
| Acá te muestro lo que tenfo en un comando de seleccion de foto en un programa y te muestro la funcion que utilizo "GetPictX" local lcfilename SET PROCEDURE TO profunc lcfilename=GetPictX(CURDIR()+"imagenes","","Seleccionar Imagen") if !empty(lcfilename) thisform.fondo.picture = lcfilename LAFOTO = lcfilename thisform.refresh endif PROFUNC.PRG && ACA PONGO TODAS LAS FUNCIONES O PROCEDIMIENTOS QUE DESARROLLO PARA USAR EN LOS PROGRAMAS Esta funcion la baje una ves no recuerdo de donde ******************************************************************************** * FUNCTION GetPictX(tcRuta, tcExtension, tcLeyenda, tcBoton) ******************************************************************************** * Función GetPict eXtendida. Al igual que la función GetPict muestra un cuadro * de diálogo Abrir imagen y retorna el nombre del archivo de imagen * seleccionado. Si no se selecciona ningun archivo retorna una cadena vacia. * La diferencia con GetPict() es que se puede especificar con el primer * parámetro la carpeta donde se abre el cuadro de dialogo. * * RETORNA: * Caracter * PARAMETROS: * tcRuta: Ruta inicial * tcExtension: Extension de los archivos de imagen que se muestra * tcLeyenda: Título del cuadro de texto "Nombre de archivo" * tcBoton: Título del botón "Aceptar" * USO: * ? GetPictX("C:Imagenes","JPG","Foto:", "Abrir foto") * ? GetPictX(CURDIR()+"imagenes","","Seleccionar Imagen") ******************************************************************************** FUNCTION GetPictX(tcRuta, tcExtension, tcLeyenda, tcBoton) 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) lcDirAnt = FULLPATH("") SET DEFAULT TO (tcRuta) lcGetPict = GETPICT(tcExtension, tcLeyenda, tcBoton) SET DEFAULT TO (lcDirAnt) RETURN lcGetPict ENDFUNC Cualquier duda preguntame | |