Sorry, it was my mistake. I mean this for example
Code:
LOCAL aJahre := {}
LOCAL aVerzeichnisse := {}
LOCAL cJahre := ""
LOCAL cVerzeichnis := oSysPAra:doParaWs:datenbestand + "jahresabschluss\*"aVerzeichnisse := Directory(cVerzeichnis,"D") // nur Directories der Jahre
IF Len(aVerzeichnisse) > 0
SELECT field1 AS name FROM (aVerzeichnisse) AS jahr WHERE jahr->field1 <> "." .AND. jahr->field1 <> ".." INTO objects aJahre
ENDIF
//------------------------------------------------------------------------------
@ oDialogZusatz:nOben,oDialogZusatz:nLinks DCSAY "Jahr:";
OBJECT oDialogZusatz:oText;
PARENT oDialogZusatz:oRahmenKopf;
SIZE 0
@ DCGUI_ROW,DCGUI_COL DCLISTBOX cJahre;
LIST aJahre;
OBJECT oListbox;
PARENT oDialogZusatz:oRahmenKopf;
SIZE oSysPara:SkaliereXbParts(100),oDialogZusatz:nSayHoehe