Based on Naomi's example:

SET ENGINEBEHAVIOR 90
SELECT DISTINCT;
       CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation,;
       UPDATE.iid,;
       CHRTRAN(SUBSTR(UPDATE.cLocation,1,LEN(ALLTRIM(ADDBS(UPDATE.clocation ))) - 1),"0123456789","") AS SortOrder1,;
       VAL(CHRTRAN(UPDATE.cLocation,CHRTRAN(UPDATE.cLocation,"0123456789",""),""))                    AS SortOrder2;
FROM UPDATE;
WHERE FILE( ADDBS(UPDATE.clocation) + "Id.dbf")       AND ;
      FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ;
      FILE (ADDBS(clocation) + "Amline.dbc" );
ORDER BY SortOrder1, SortOrder2, Iid;
INTO ARRAY Societes
SET ENGINEBEHAVIOR 70

NOT TESTED!!!!!!!!!!!!!!





>Hi Naoomi,
>
>Thank !
>
>

>SET ENGINEBEHAVIOR 90
>SELECT DISTINCT  CAST( ADDBS( UPDATE.clocation ) AS C(50) ) AS clocation , UPDATE.iid , ;
>SUBSTR( UPDATE.cLocation,1,LEN(ALLTRIM(ADDBS( UPDATE.clocation ))) - 1) as SortOrder ;
> FROM UPDATE ORDER BY SortOrder , iid WHERE FILE( ADDBS( UPDATE.clocation) + "Id.dbf") AND ;
> FILE( ADDBS(UPDATE.clocation) + "Compagny.dbf") AND ;
> FILE ( ADDBS(clocation) + "Amline.dbc" ) INTO ARRAY Societes
>SET ENGINEBEHAVIOR 70
>

>
>
>
>It is almost the solution.....:-)
>
>Ishould like
>
>c:\amline\data2 before c:\amline\data11
>
>
>cf attachment please...
>
>
>>>
>>>thank in advance for answer.
>>>
>>>
>>>bernhart
>>
>>

>>CREATE CURSOR t (cLocation C(40))
>>INSERT INTO t VALUES ('c:\Data1\')
>>INSERT INTO t VALUES ('c:\Data16\')
>>INSERT INTO t VALUES ('c:\Data16g\')
>>SELECT cLocation,SUBSTR(cLocation,1,LEN(ALLTRIM(ADDBS( clocation ))) - 1) as SortOrder FROM t ORDER BY 2