D.Cook
Member
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?
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?
Code:
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.