I've got a partial answer - I copied a source posted in 2001 (see link
below)
Which uses lstat to get the particulars about the object referenced in the
readdir
C* Read next directory entry
C eval PtrToEntry = readdir(ReturnDir)
C* Directory entry name is in field d_name
C if PtrToEntry <> *Null
C eval DirEntry = RtnEntry
C* Get directory entry name
C eval EntryName = %str(%addr(d_name))
C* Determine object type of entry
C eval EntryPath = %trim(DirName) + '/'
C + %trimr(EntryName) + Null
C eval ReturnInt = lstat(%addr(EntryPath)
C : %addr(StatDS))
C if st_objtype = '*STMF'
There is a posting in 2006 about an error condition so orig may need update
http://www.as400pro.com/DisplayIFSDirectory.htm
There is a posting RPG400 list in 2006 about an error condition so orig may
need update
Jim
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
mlazarus
Sent: Tuesday, April 25, 2017 9:34 PM
To: Midrange Systems Technical Discussion
Subject: readdir - how to determine a folder?
I'm using the readdir API to read through a list if files in a folder. Is
there an attribute available that will tell me if it's a sub-folder /
directory?
-mark
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
http://amzn.to/2dEadiD
midrange.com
