Excel VBA質問箱 IV

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

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


8531 / 76732 ←次へ | 前へ→

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

【73771】リストボックスにファイル名が重複して表示 akichn 13/2/13(水) 8:58 質問
【73772】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 9:23 発言
【73773】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 9:37 発言
【73774】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 10:48 発言
【73775】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 11:54 発言
【73777】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 12:39 お礼
【73776】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 11:58 発言
【73778】Re:リストボックスにファイル名が重複して... akichn 13/2/13(水) 13:00 お礼
【73779】Re:リストボックスにファイル名が重複して... UO3 13/2/13(水) 17:36 発言

8531 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free