ドラッグ＆ドロップの対象をフォルダに限定したい

質問

こんばんは。
テキストボックスにドラッグ＆ドロップされたフォルダのパスを取得させたいのですがドラッグの対象をフォルダに限定させたい、もしくはファイルがドラッグ＆ドロップされたらそのファイルのカレントディレクトリまでのパスを取得させたいのですが、下記のコードでは取得までは出来るのですがファイルがきた場合にファイルまでのパスが取得されてしまいまいます。
よろしくお願いします。

Dim ddpath As String

Private Sub TxtPath_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TxtPath.DragEnter

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If

End Sub

Private Sub TxtPath_DragDrop(ByVal sender As Object, ByVal e As _System.Windows.Forms.DragEventArgs) Handles TxtPath.DragDrop

ddpath = e.Data.GetData(DataFormats.FileDrop)(0)
If Dir(ddpath, FileAttribute.Directory) <> "" Then
TxtPath.Text = ddpath
End If

End Sub

回答No.1

BLUEPIXY · ベストアンサー

Dir(ddpath, FileAttribute.Directory) <> ""
の部分を
(GetAttr(ddpath) And vbDirectory) = vbDirectory
にすればいいのでは？
vbDirectory は、FileAttribute.Directory と同じです。

お礼

ありがとうございます。
ファイルがドロップされてもパスが表示されなくなりフォルダがドロップされた時だけパスが表示されるようになり、希望通りの結果になりました。
どうもありがとうございました。