はじめまして．．
リストボックスで特定の拡張子以外は入らないようにするには、どうすればいいのでしょうか？
宜しく、お願い致します。

> リストボックスで特定の拡張子以外は入らないようにするには、どうすればいいのでしょうか？

リストボックスへの項目追加はプログラムで行っていると思いますが、
Like演算子を使って、指定の拡張子かどうかを判断すればよいと思います。

追加項目がdata、リストボックスがListBox1だとすると
以下のような感じで判定できます。(拡張子が.txtの場合のみ追加の例)

If data Like "*.[Tt][Xx][Tt]" Then
    ListBox1.Add(data)
Else
    ' 追加しない
End If

> > リストボックスで特定の拡張子以外は入らないようにするには、どうすればいいのでしょうか？
>
> リストボックスへの項目追加はプログラムで行っていると思いますが、
> Like演算子を使って、指定の拡張子かどうかを判断すればよいと思います。
>
> 追加項目がdata、リストボックスがListBox1だとすると
> 以下のような感じで判定できます。(拡張子が.txtの場合のみ追加の例)
>
> If data Like "*.[Tt][Xx][Tt]" Then
>     ListBox1.Add(data)
> Else
>     ' 追加しない
> End If

ご伝授有難う御座います。
早速、追記したところLikeで型が一致しないとエラーが出ました。
因みに下が書き換えたものです。

If dwgName Like "*.[Dd][Ww][Gg]" Then
    DwgList.AddItem (dwgName)
Else
    ' 追加しない
End If

です。何がおかしいのでしょうか？宜しくお願い致します。

> 早速、追記したところLikeで型が一致しないとエラーが出ました。
> If dwgName Like "*.[Dd][Ww][Gg]" Then
>     DwgList.AddItem (dwgName)
> Else
>     ' 追加しない
> End If

変数 dwgName が、String 型になっていないのでは。