INPUT FROM OS-DIR only works once?

[D.Cook]

It appears that INPUT FROM OS-DIR will only retrieve a directory's contents once in a procedure. I want to do it more!

This code is called in an internal procedure (from a button click), but after the first time it is called, doesn't import anything. If the super procedure (window) is closed and opened again, it works. Am I missing something?

def stream dir_strm.
def var vr_filepath as char no-undo.
def var i as int no-undo.

do i = 1 to 3:
      message "Try" i.
      input stream dir_strm from os-dir("C:\Projects\mizzisoft56\photos\") no-attr-list no-echo.      
      if not error-status:error then
      repeat:      
         import stream dir_strm ^ vr_filepath ^ no-error.
         message vr_filepath.
      end.  
      input stream dir_strm close.      
end.

 

[rzr]

remove the " if not error-status:error then" ...and try again...

 

[D.Cook]

Oh.. thanks that works although I have no idea why! Don't know why I didn't try that..

 

[Stefan]

Oh.. thanks that works although I have no idea why! Don't know why I didn't try that..

I think INPUT FROM is not touching error-status, but the EOF from the dir is.

 

[D.Cook]

Oh I see, I'd better check the original code I copy and pasted from then. Thanks.