15 lines
287 B
Plaintext
15 lines
287 B
Plaintext
// directory test
|
|
function main(filespec,attribs)
|
|
|
|
local adir := {}
|
|
local x := 0
|
|
|
|
adir := asort( directory(filespec,attribs),,, {|x,y|upper(x[1]) < upper(y[1])} )
|
|
|
|
for x := 1 to len(adir)
|
|
qout(adir[x,1],"|", adir[x,2],"|", adir[x,3],"|", adir[x,4],"|", adir[x,5])
|
|
next x
|
|
|
|
return nil
|
|
|