List folder content in native mode

SUGGESTED

Hi

We have tried listing folder contents using this two approaches without success. First approach used to work in classic mode.

1. Call SYSTEME2(adxmac(0),"LSADX"-FOLDER,"",FILCOUNT, FILLIST) From ORDSYS (error, 'Unexpected end of JSON input')

2. System FILES = adxmac(1)+"@DIR/b/o:n"+DIRECTORY (no result)

Any suggestion?

Rgds

Parents
  • 0

    Hi,

    Try :

    Local Char OS : OS = GOS
    Local Char MACHINE : MACHINE=adxmac(0)
    Local Char LISTFIC(90)(9999), DOSFIC(250), ZFIC(90)
    Local Shortint NBRFIC, ZIF

    DOSFIC="d:\" # your folder

    Call LISFIC(OS,MACHINE,DOSFIC,NBRFIC,LISTFIC) From SELFICREP

     For ZIF=0 To NBRFIC-1
        ZFIC=LISTFIC(ZIF)
    Next

    End

Reply
  • 0

    Hi,

    Try :

    Local Char OS : OS = GOS
    Local Char MACHINE : MACHINE=adxmac(0)
    Local Char LISTFIC(90)(9999), DOSFIC(250), ZFIC(90)
    Local Shortint NBRFIC, ZIF

    DOSFIC="d:\" # your folder

    Call LISFIC(OS,MACHINE,DOSFIC,NBRFIC,LISTFIC) From SELFICREP

     For ZIF=0 To NBRFIC-1
        ZFIC=LISTFIC(ZIF)
    Next

    End

Children