Unicode Controls & Classes for VB6 - Version 4

clsCommonWrapper.GetUnicodeDroppedFiles Function

Gets the list of the Unicode files from a DataObject object.
This function must be called in OLEDrag&Drop events.

Public Function GetUnicodeDroppedFiles (ByRef oData As DataObject) As Collection
Parameter Description
ByRef oData As DataObject OLE Drag&Drop Data object
It only works in a compiled application!!!
In the IDE it will return a standard ansi files collection

Private Sub txtUniDrag_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim oc As Collection
Set oc = moCommonWrapper.GetUnicodeDroppedFiles(Data)
End Sub