FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ha cambiado algo en lIsdir() ?
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 10:54 AM
Buenas

Tengo las rutas de acceso a los datos (que se encuentran en un servidor, en una red), en un fichero .INI, as铆
Code (fw): Select all Collapse
[DATOS]
Unidad=S:\


Y cuando tengo que tomar esos datos lo hago as铆
Code (fw): Select all Collapse
INI oIni FILE ".\GESPAQ.INI"
  GET Publicas:cUnidad     SECTION "DATOS"     ENTRY "Unidad"           OF oIni DEFAULT curdrive()+":\"+curdir()
ENDINI

iif( right(Publicas:cUnidad,1)#'\' , Publicas:cUnidad+='\' , )    && Tiene que terminar en '\'
if !lIsdir( iif(right(Publicas:cUnidad,1)=='\',left(Publicas:cUnidad,len(Publicas:cUnidad)-1),Publicas:cUnidad)   )
  MsgStop("!ERROR! en GESPAQ.INI"+chr(13)+;
      "Unidad "+Publicas:cUnidad+" no existe.")
  quit
endif


Bueno, pues 茅sto me funciona con la version de FWH de Octubre del 2006, que es en la que ten铆a la aplicaci贸n, es decir me encuentra la ruta.
Ahora intento compilar con FWH Noviembre 2010, y me dice que no encuentra la ruta.
Vuelvo a compilar con la version anterior, y encuentra la ruta, y si compilo con la 煤ltima versi贸n, me vuelve a decir que no encuentra la ruta.

Sin embargo con unidades locales siempre me funciona, 茅sto s贸lo ocurre con unidades de red.

A ver si alguien me ayuda

Saludos
--------------------------

Saludos



Jose Luis
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 03:44 PM
Hola...
Provaste revisar que es lo que est谩s avaluando?

Code (fw): Select all Collapse
MsgInfo( iif(right(Publicas:cUnidad,1)=='',left(Publicas:cUnidad,len(Publicas:cUnidad)-1),Publicas:cUnidad) )


Saludos,
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 05:11 PM
Hola

Si , efectivamente hice:
Code (fw): Select all Collapse
msginfo(lIsdir( iif(right(Publicas:cUnidad,1)=='\',left(Publicas:cUnidad,len(Publicas:cUnidad)-1),Publicas:cUnidad) 聽 ))


(Nota, el == es '\', es que no sale cuando lo ponemos como Code en el post.)

Y el sesultado fue como dije anteriormente,

Si la compilaci贸n la hago con la versi贸n fwh Octubre 2006 el resultado es .T.

Si la compilaci贸n la hago con la versi贸n fwh Noviembre 2010 el resultado es .F.

Ojo!. s贸lo ocurre cuando es una unidad de red, no en local

Saludos
--------------------------

Saludos



Jose Luis
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 06:18 PM

Jose

la funcion lIsdir no se ha tocado, puede ser que el comportamiento diferente venga por cambios internos de harbour o xharbour, que compilador usas?

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 06:25 PM

Jose

prueba usar la funcion HB_DIREXISTS( cDirName )

Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Tue Dec 14, 2010 10:57 PM

Hola

Utilizo toda la estructura que viene con fwh de Noviembre(Bcc582,xharbour), y utilizo Verce.

Ma帽ana compruebo la funci贸n que me indicas.

Saludos

--------------------------

Saludos



Jose Luis
Posts: 428
Joined: Thu Oct 19, 2006 12:28 PM
Re: Ha cambiado algo en lIsdir() ?
Posted: Wed Dec 15, 2010 09:23 AM

Daniel

Correcto! , con la funci贸n que me has enviado funciona perfecto.

Saludos

--------------------------

Saludos



Jose Luis

Continue the discussion