Rutas de Archivos en Visual Fox P.

[stallman stallman]

Buenas Tardes Estimados Señores:

Les comento que tengo un problema  con las rutas de los archivos en mi proyecto:

- Ubico todos y cada uno de mis archivos referenciando la naturaleza de ellos de la siguiente manera:
1- Ruta de los Archivo: "C:\Archivos de programa\UTILIDADES"
dentro de UTILIDADES tengo los siguientes Subdirectorios:
Clases, DataBase, Exe, Forms, Img, Menu, Prg, Project, Report y Temp

2- En mi *.prg Principal tengo establecidas las siguientes rutas:

       SET DEFAULT TO "C:\Archivos de programa\UTILIDADES\"   
         SET PROCEDURE TO C:\Archivos de programa\UTILIDADES\Prg\tools.prg"
         OPEN DATABASE "C:\Archivos de programa\UTILIDADES\DataBase\Utilidades.dbc" SHARED
         DO FORM C:\Archivos de programa\UTILIDADES\Forms\frm01_principal.scx"

3 - Cada vez que quiero hacer uso de una de las tablas "Ids.dbf" me da el siguiente mensaje de Error:
El archivo"D:\Mis Documentos\Proyectos de Visual Foxpro\Ids.dbf" no existe.

* Lo que no entiendo es por qué anda buscando la tabla ahí.

Les agradezco me puedan colaborar.

[Luis Maria Guayan]

Seguramente estas con un Windows Vista o Seven y está UAC habilitado.

"C:\Archivos de programas" es una carpeta especial, y no es el mejor lugar para que pongas los archivos de tus proyectos.

Crea una carpeta C:\Proyectos ó C:\Desarrollo y allí pones las subcarpetas que indicas.

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Walter R. Ojeda Valiente]

Porque el Visual FoxPro busca un archivo:
- En el directorio por defecto del Visual FoxPro, si no lo encuentra allí entonces lo busca:
- En el directorio especificado con SET DEFAULT, si no lo encuentra allí entonces lo busca:
- En los directorios especificados con SET PATH, si no lo encuentra allí entonces:
- Muestra un mensaje de error.

O sea que debes escribir un SET PATH con los directorios donde quieres que te busque los archivos.

Saludos.

Walter.

---

Date: Sat, 7 May 2011 15:15:34 -0600
Subject: [vfp] Rutas de Archivos en Visual Fox P.
From: stall...@gmail.com
To: publice...@googlegroups.com

[Walter R. Ojeda Valiente]

Además, poner tus archivos dentro de la carpeta "C:\Archivos de programa\" es un error, las versiones nuevas del Windows (Vista y 7) protegen esa carpeta. Deberías poner tus archivos dentro de la carpeta:
- Mis Documentos\MiAplicación\, o dentro de:
- C:\MiAplicación\     && Esto es lo preferible

Desde luego, puedes usar otro disco (D:, E:, F:, etc.)

Saludos.

Walter.

---

Date: Sat, 7 May 2011 15:15:34 -0600
Subject: [vfp] Rutas de Archivos en Visual Fox P.
From: stall...@gmail.com
To: publice...@googlegroups.com

[stallman stallman]

Muy Bien, Gracias,


1-Estoy  utilizando Windows XP.

2- Entonces debo indicar un SET PATH para cada uno de los SubDirectorios del Proyecto?

[Walter R. Ojeda Valiente]

Leíste bien.

Saludos.

Walter.

---

Date: Sat, 7 May 2011 15:29:12 -0600
Subject: Re: [vfp] Rutas de Archivos en Visual Fox P.
From: stall...@gmail.com
To: publice...@googlegroups.com

[stallman stallman]

Muy bien gracias por las recomendaciones.

Saludos.

[Norberto]

Tal como te dijeron, en el main.prg poné
IF VERSION(2)=0 && Runtime
lcPath = (HOME() + ";" ) + (FULLPATH( CURDIR() ) +
";DATA;GRAPHICS;REPORTS;HELP")
ELSE
lcPath = (HOME() + ";" ) + (FULLPATH( CURDIR() ) +
";MENUS;DATA;PROGS;LIBS;GRAPHICS;FORMS;REPORTS;HELP")
ENDIF
SET PATH TO (lcPath)

[Manuel Lucas Anaya Guillen]

A lo que dicen los profesores:

En programa principal, el de arranque yo le puse:

***

cDir = sys(5)+CURDIR()

set defa to &cDir

cRuta = "Datatmp\, Fotos\, Interfaz\, Librerias\, Multimedia, Programas\, Reportes\, Ventas\, Temporales\"

SET PATH TO &cRuta

***

Mientras estoy con el visualfoxpro, de igual en el menú Herramientas / Opciones; escojo la pestaña: Archivos, y en Directorio Predeterminado, coloco el directorio de mi aplicación, para mi caso por ejemplo D:\MIPROGRAMA

Luego cuando arranco el VFP, visual foxpro inicia en dicho directorio; el programa principal define la ruta de busqueda, y listo.

-- 

Manuel L. Anaya Guillén
Warparuna - Huamanguino .... en
Huancavelica, Ayacucho y Apurímac:Territorio Chanka,
--------------------------------------------------------------------------------

"El hombre, en su orgullo, creó a Dios a su imagen y semejanza."  Friedrich Nietzsche

[ibania blanco]

lcPathApp="clases, datos, formas, iconos, informes, prgs, images,
themed, temp"
Set Path To &lcPathApp
Set Default To c:\themed

sDir = sys({la que te regresa la unidad que de momento no se cual
sea}) + curdir()

clasespath = sDir + "CLASES," + ";"
datospath = sDir + "DATA," + ";"
formspath = sDir + "FORMS," + ";"
.
skinspath = sDir + "SKINS"

sPath = clasespath + datospath + etc, etc, etc, hasta + skinspath
SET PATH TO (sPath) o SET PAT TO &sPath (1 de estas 2 opciones)


cRuta1=SYS(5)+CURDIR()
SET DEFAULT TO (cRuta1)

SET PATH TO C:\exe,clases,class.bmp,graficos,icons,menu,prg
&&Especificamos los directorios a buscar

SET PATH TO (lcPath + ";Data\;Forms\;Help\;Images\;Libs\;Menus\;Progs
\;Reports\") && Specifies a path for file searches



Set Path To Sys(5) + Sys(2003) + "\DATOS\"
Set Path To Sys(5) + Sys(2003) + "\APPS\" Additive
*---------------------------------------------------
sPath = sDef + ";" + sDef + "CLS;" + sDef + "DB;" + sDef + "FRM;" + ;
sDef + "ICO;" + sDef + "IMG;" + sDef + "MNU;" + sDef +
"PRG;" + ;
sDef + "RPT;" + sDef + "TXT"

*------------------------------------------
lcPathApp="DATOS, FORM, imagen, prg"
Set Path To &lcPathApp
*-------------------------------------------------------
raiz = SYS(16)
ruta= SUBSTR(raiz, AT(":", raiz) - 1)
CD LEFT(ruta, RAT("\", ruta))

ruta=fullpath(curdir())
*--------------------------------------------------------
Como utilizar path
PathDatos = sys(5)+sys(2003)+"\datos\"
PathForms = sys(5)+sys(2003)+"\forms\"
PathClass = sys(5)+sys(2003)+"\clases\"
PathReports = sys(5)+sys(2003)+"\Reportes\"
PathImage = sys(5)+sys(2003)+"\Graficos\"
PathPrg = sys(5)+sys(2003)+"\progs\"
PathMnu = sys(5)+sys(2003)+"\Menus\"
PathSyst = sys(5)+sys(2003)+"\System\"

set path to &PathDatos,&PathForms,&PathReports,;
&PathImage,&PathPrg,&PathMnu,&PathClass,&PathSyst

Otra forma
CarpetaEjecutable = Sys(5) + CurDir()
CarpetaDatos = "C:\SISTEMAS\SUELDOS\ARCHIVOS\"
CarpetaFotos = "C:\SISTEMAS\SUELDOS\FOTOS\"

SET PATH TO &CarpetaEjecutable, &CarpetaDatos, &CarpetaFotos



Manuel Lucas Anaya Guillen ha escrito:

> A lo que dicen los profesores:
> En programa principal, el de arranque yo le puse:
> ***
> cDir = sys(5)+CURDIR()
> set defa to &cDir
> cRuta = "Datatmp\, Fotos\, Interfaz\, Librerias\, Multimedia, Programas\,
> Reportes\, Ventas\, Temporales\"
> SET PATH TO &cRuta
> ***
> Mientras estoy con el visualfoxpro, de igual en el menú Herramientas /
> Opciones; escojo la pestaña: Archivos, y en Directorio Predeterminado,
> coloco el directorio de mi aplicación, para mi caso por ejemplo
> D:\MIPROGRAMA
> Luego cuando arranco el VFP, visual foxpro inicia en dicho directorio; el
> programa principal define la ruta de busqueda, y listo.
>
> --

> *Manuel L. Anaya Guillén*
> *Warparuna - Huamanguino .... en
> Huancavelica, Ayacucho y Apurímac:Territorio Chanka, *

[Douglas Sánchez Guillén]

Bueno yo no le doy tanta vuelta a esto mas que pongo en el init.prg

SET DEFAULT TO FULLPATH(CURIDR())   &&&&& EN cualquier lugar q pongas mi programa y por dentro de esa carpeta tiene la estructura de carpetas de abajo, es totalemente funcional

SET PATH TO DATOS, PROGS, CLASES, IMAGENES, ICONOS, FORMULARIOS &&&& estructura de directorios nada mas.

mas sencillo funcional y sin mucho cuentos

luego lo llamdos   do form xxx

do miprg.prg

y simplemente lo hace fox-

saludes.

--
Ing. Douglas Sánchez Guillén

      Consultor Informatico

Movistar: 505 8759 - 5342

Claro: 505 88495476