Problemas al migrar desde FWH2012 a FWH2307 - cerrado

[CARLOS ATUNCAR]

efectivamente ya no sale en error con el xharbour. Muy agradecido. Luego sigo con la los problemas de la migracion de la version me interesa usar el potencial de la version 2023.07 del fivewin.

[CARLOS ATUNCAR]

Saludos devuelta retomando el tema parece que encontre el origen del problema y parece ser que es causado por la funcion Hb_DirExists()

al usarlo en mi INIT Procedure PrgInit donde reviso si existen algunas carpetas para crearlas a la siguiente linea si uso la funcion FILE ya no ubica pero antes de esto si

Que Solucion puede tener

[CARLOS ATUNCAR]

He probado con Bcc7.60 y xHarbour 1.2.3 Intl. (SimpLex) (Build 20221118) la version FW 12.2020 y todo pasa con normalidad tambien he probado la version FW 07.2023 y el problema persiste no he podido probar con xHarbour 1.3.0 Intl. (SimpLex) (Build 20230826)
por que con ambas versiones genera este error
Error: Unresolved external 'utime(const char *, utimbuf *)' referenced from E:\TOOLS\XHARBOUR_BCC74A\LIB\HBZIP.LIB|zipplatform

Estimado Carlos, puede mostrar un pequeno PRG de ejemplo? Desculpa mi Espanol.

al usar function Hb_DirExists() la funcion FILE() ya no ubica ningun archivo si no se pone la ruta completa antes de usar esta funcion si ubica con tan solo poner el nombre del archivo

[Enrico Maria Giordano]

Works fine here:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    ? 2, FILE( "MYTEST.TXT" )

    RETURN NIL


INIT FUNCTION TEST()

    MEMOWRIT( "MYTEST.TXT", "", .F. )

    ? 1, FILE( "MYTEST.TXT" )

    RETURN NIL

[CARLOS ATUNCAR]

Works fine here:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    ? 2, FILE( "MYTEST.TXT" )

    RETURN NIL


INIT FUNCTION TEST()

    Hb_DirExists("c:\temp")

    MEMOWRIT( "MYTEST.TXT", "", .F. )
 
    ? 1, FILE( "MYTEST.TXT" )

    RETURN NIL

agregando Hb_DirExists() comienza las fallas

[Enrico Maria Giordano]

You can use LISDIR():

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    ? 2, LISDIR( "MYTEST" )

    RETURN NIL


INIT FUNCTION TEST()

    MAKEDIR( "MYTEST" )

    ? 1, LISDIR( "MYTEST" )

    RETURN NIL

[karinha]

Intenta con:

Code: Select all  Expand view  RUN

HB_FNAMESPLIT()
ó:
aFindFile()
 

Saludos.

[nageswaragunupudi]

al usar function Hb_DirExists() la funcion FILE() ya no ubica ningun archivo si no se pone la ruta completa antes de usar esta funcion si ubica con tan solo poner el nombre del archivo

This is due to a bug in hb_DirExists() function.
Fixed now and will be available in FWH2310 to be released in a day or two.
Meanwhile, you can use other functions with the same functionality eg. lIsDir() as suggested by Mr, Enrico