世にファイルリストを作るプログラムは砂の数ほどありますがD&Dされたファイル名をテキストボックスに
表示してくれるようなソフトが見つからなかったので簡単なものを作ろうと思って手元にるVB5 Learning
Editionで↓のようにでっち上げ始めたのですが

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim aData
For Each aData In Data.Files
Text1.Text = Text1.Text & Chr$(13) & Chr$(10) & aData
Next
End Sub

基本部分はこれだけですが「Data」中にFile以外のものがある場合、エラートラップを使用せずに
取り除くにはどうしたら良いのでしょうか？
デスクトップで『マイコンピュータ』なんか混ざるとエラーで落ちちゃうんですよね。