Refresh後にファイル選択の状態にするには？ (ID:122831)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 For c = 0 To File1.ListCount - 1 If File1.List(c) <> "" Then File1.Selected(c) = True Next c は、For〜Nextする意味がないので、 File1.selected(File1.ListCount-1) = True だけで同じものが実装できると思うがどうでしょうか