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

名前

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

本文 こんな感じ Dim vv As String Dim c As Long vv = File1.List(File1.ListIndex) File1.Refresh For c = 0 To File1.ListCount - 1 If vv = File1.List(c) Then File1.Selected(c) = True Next c