Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8534 / 76735

←次へ　｜　前へ→


	【73771】リストボックスにファイル名が重複して表示

akichn - 13/2/13(水) 8:58 -


	引用なし

	パスワード

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
*******************************************
何方か教えてもらえないでしょうか

0 hits

▼

【73771】リストボックスにファイル名が重複して表示 akichn 13/2/13(水) 8:58

≪