|
UserFormのテキストボックスにフォルダー名を入力すると、リストボックスに指定した形式のファイルが表示されるマクロですが、時々ファイルが重複して表示されます。これを回避する方法はないでしょうか?
******************************************
Private Sub TextBox1_Change()
Dim i As Long, n As Long
ListBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = TextBox1.Text
.Filename = "*.jpg;*.bmp;*.tif;*.gif"
n = .Execute()
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i))
Next
If ListBox1.ListCount = 0 Then
Else
ListBox1.ListIndex = 0
End If
End With
End Sub
*******************************************
何方か教えてもらえないでしょうか
|
|