FiveTech Software tech support forums

Hola foro.
Tengo una pequeña red domestica con varios PC's compartidos
Mi problema es el siguiente:
En un PC tengo la aplicacion que funciona perfectamente.
Al entrar en la aplicacion lo primero que hago es comprobar si existen los directorios
IN y OUT
Hago lo siguiente:

Meto en una variable el directorio actual

Local OldDir := Curdir()
If !lIsdir('IN')
lMkDir('IN')
Endif
If !lIsdir('OUT')
lMkDir('OUT')
Endif

//Si Compruebo donde estoy desde otro PC me dice: \JMUA-01 me dice: \programas(E)\Turiguiprograma\IN\OUT. Incorrecto

//Si Compruebo donde estoy desde el PC que tiene la aplicacion me dice: TURIGUIPROGRAMA. Esto es correcto

Cambio al anterior directorio
DirChange(OldDir)

//Luego voy a abrir las tablas que estan en otro directorio llamado TABLAS
Dbusearea(.t.,,'tablas\Clientes','Cli',.f.)
If !Neterr()
? "Tablas abiertas...."
Else
? "Error...."
Endif

Si ejecuto la aplicacion desde otro PC me da el error OPEN ERROR DOS 3 o sea que los ficheros no existen
Si elimino la comprobacion y creacion de los directorios IN y OUT funciona bien


Alguien puede decirme el porque de esto

Gracias de antemano

jmau

primero antes debes de compartir los datos del servidor de archivo

de cualquier computador abres asi los datos Y ASI SUCESIVAMENTE

espero que te sirva..

JMAU
no necesitas mover nada a tu aplicacion ..

Asi como lo realizas es correcto,

para hechar andar el sistema desde otra pcs,

comparte la unidad C del servidor

Y en las demas pcs. creas una unidad logica K:

y despues creas un acceso directo que

llame a tu aplicacion K:\miapp\app.exe

salu2.

Gracias a ambos, les dire que en mi caso no hay ningun servidor, simplemente son PC's compartidos y la aplicacion esta en uno cualquiera
Asi que probare con las dos respuestas a ver que resulta.
Muchas gracias

José Martin Uriarte