Excel VBA質問箱 IV

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

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


8527 / 76732 ←次へ | 前へ→

【73775】Re:リストボックスにファイル名が重複して表示
発言  UO3  - 13/2/13(水) 11:54 -

引用なし
パスワード
   ▼akichn さん:

とりあえず TestBox1 に c:\Test といったフォルダフルパス文字列をいれ、
CommandButton1 で処理するコード案です。
もし、別途、Changeイベント連鎖を回避する手立てをしておられるなら、
TextBox1_Change のままでもよろしいかと思いますが、これについては
具体的に、どのように回避しておられるのか見えないのでコメントできません。

Private Sub CommandButton1_Click()
  Dim myPath As String
  Dim ok As Boolean
  Dim fname As String
  Dim w As Variant
  
  ListBox1.Clear
  myPath = TextBox1.Value
  
  If Len(Dir(myPath, vbDirectory)) > 0 Then
    If (GetAttr(myPath) And vbDirectory) = vbDirectory Then ok = True
  End If
  
  If Not ok Then
    MsgBox "指定フォルダは存在しません"
    Exit Sub
  End If
  
  fname = Dir(myPath & "\*.*")
  
  Do While Len(fname) > 0
    w = Split(fname, ".")
    Select Case LCase(w(UBound(w)))
      Case "jpg", "bmp", "tif", "gif"
      ListBox1.AddItem fname
    End Select
    fname = Dir()
  Loop
  
End Sub
300 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 発言

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