Property: FileList for DropInformation

Download PDF

Updated2024-09-12
1 minute(s) read

Returns in user dialog boxes a collection of all files from a file list which you drag and drop to another object.

Set oFileList = Object.FileList

Object	DropInformation Object with this property
oFileList	FileList <DropInformation> Returned object

The following example creates a tree you can drag files to. The tree displays the names of these files as new branches.

VBScript

Python

Copy script

Sub Tree1_EventDropAllowed(ByRef This, DropInformation, ByRef DropEffect) 'Created Event Handler
  If (DropInformation.FileList.Count >0) Then
    DropEffect = eDropEffectCopy
  End If
End Sub

Sub Tree1_EventDrop(ByRef This, DropInformation, ByRef DropEffect, ByRef Node)
  Dim oMyFile, oMyFileList, iCount
  Set oMyFileList = DropInformation.FileList
  If (oMyFileList.Count > 0) Then
    If (Not Node Is Nothing) Then
      For iCount = 1 to oMyFileList.Count
        Call Node.Nodes.Add(oMyFileList(iCount))
      Next
      Node.Expanded = True        
      Call Node.Update(eUpdateModeNodeAndChilds)
    Else
      For iCount = 1 to oMyFileList.Count
        Call This.Nodes.Add(oMyFileList(iCount))
      Next
      Call This.Refresh
    End If
  Else
    DropEffect = eDropEffectNone
  End If
End Sub

def Tree1_EventDropAllowed(ByRef This, DropInformation, ByRef DropEffect): #Created Event Handler
    if (DropInformation.FileList.Count >0) : 
        DropEffect = eDropEffectCopy 
def Tree1_EventDrop(ByRef This, DropInformation, ByRef DropEffect, ByRef Node): 
    oMyFileList = DropInformation.FileList 
    if (oMyFileList.Count > 0) : 
        if (not Node is None) : 
            for iCount in range( 1, oMyFileList.Count + 1): 
                Node.Nodes.Add(oMyFileList(iCount)) 
            Node.Expanded = True 
            Node.Update(dd.eUpdateModeNodeAndChilds) 
        else: 
            for iCount in range( 1, oMyFileList.Count + 1): 
                This.Nodes.Add(oMyFileList(iCount)) 
            This.Refresh() 
    else: 
        DropEffect = eDropEffectNone