http://makoto-watanabe.main.jp/freebasic/tipsFileDialog.html
がエラーで動かないことは前スレに記載した。
一部変更して動くようになったので、記載する。障害(コンパイルエラー)が発生したのは、Function FileSelectFolder ()内で、ここの変更を記載する。

「 Dim fp As FOLDER_PROPS」行後に「Dim ppidl as LPITEMIDLIST」行を追記する。
「@bi.pidlRoot」という文字を見つけて「@ppidl」と変更、３か所。
挿入１行と変更が３か所。

Fun SHBrowseForFolder() での影響がわからない。
.pidlRootに値を定義していない影響がわからないから。何を定義するのかがわからないから。
コンパイルを通っただけだから、さらなる検証が必要。