Load file info for all files in a directory (See related posts)

    load-dir: func [
        "Load file info for all files in a directory."
        path /local result orig-dir
    ][
        result: copy []
        orig-dir: what-dir
        change-dir dirize path
        foreach file read %. [
            repend result [
                file
                ;file: get-modes file 'full-path
                make info? file  get-modes file get-modes file 'file-modes
            ]
            ; include # of files in sub-dirs?
            ; include full-path?
        ]
        change-dir orig-dir
        result
    ]