OLEDragDropイベントにて、ファイルとフォルダを判別するには？ (ID:78140)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 okuさん、回答ありがとうございました。 Dir関数を用いることで、希望通りの処理ができました。 同じ問題に直面した方のために、 ソースを貼り付けておきます（汚いですが 'ドロップファイル数分繰り返し For iLoop = 1 To Data.Files.Count 'ファイルであるか If Dir(Data.Files.Item(iLoop), vbNormal) <> vbNullString Then 'ドロップされたファイルを処理対象リストに追加 Call AddDocumentList(Data.Files.Item(iLoop)) Else '念のためディレクトリであるかを確認 If (GetAttr(Data.Files.Item(iLoop)) And vbDirectory) = vbDirectory Then ' そのディレクトリ内に存在するファイル名を取得 cFile = Dir(Data.Files.Item(iLoop) & "\*", vbNormal) 'ディレクトリ内のファイル全てを取得するまで繰り返し Do While cFile <> vbNullString 'ドロップされたファイルを処理対象リストに追加 Call AddDocumentList(Data.Files.Item(iLoop) & "\" & cFile) cFile = Dir Loop End If End If Next iLoop 上記構文で複数のフォルダ＋複数のファイル時に、 全てのアイテムを取得できることを確認しました。