VBAでのリストビューにおけるドロップイベント

リストビューにファイルをドロップした場合、適切に処理がされるんですが、不適切なデータ（たとえばブラウザ等で選択した文字列がドロップされた）だと下記のところでデータ形式が一致しないというエラーが出てしまいます。


Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

With Me
AppActivate Me.Caption
.ListView1.ListItems.Clear
If Data.Files.Count <> 1 Then Exit Sub　　←データの形式が一致しません　(Dataに不適切な値が入っている)

不適切なデータが入力された際に処理を実行しないようにするにはどのような手段があるのでしょうか？

ご回答よろしくお願いします。

No.1 ベストアンサー 回答者： mitarashi 回答日時： 2012/09/26 22:52

こちらをご参考に、

Data.GetFormat(15)がTRUEか否かで分岐してはいかがでしょうか。
http://msdn.microsoft.com/en-us/library/aa244109 …

VbCFFilesという定数はVBAにはなさそうなので、使いたければ別途宣言する必要があります。

また、VbCFTextの所に、Text (.txt files)とありますが、テキストファイルのドロップかどうか確認できるという訳ではなさそうでした。
ご参考まで。

この回答へのお礼

ご回答ありがとうございました
おかげで解決できました。

お礼日時：2012/09/27 00:36