Summary: Demonstrates how to use RhinoScript's MultiListBox function to select multiple files.

The following example RhinoScript code demonstrates how to use the MultiListBox function to display a list of file names to select.

 Sub Test
   Dim sFolder
   sFolder = Rhino.BrowseForFolder( , "Select folder with 3DM files" )
   If VarType( sFolder ) <> vbString Then Exit Sub
 
   Dim oFSO
   Set oFSO = CreateObject( "Scripting.FileSystemObject" ) 
 
   Dim oFolder
   Set oFolder = oFSO.GetFolder( sFolder )
 
   Dim oFile, aFiles(), nCount
   nCount = 0
   For Each oFile In oFolder.Files
     ReDim Preserve aFiles(nCount)
     aFiles(nCount) = oFile.Name
     nCount = nCount + 1
   Next
 
   If nCount = 0 Then 
     Rhino.Print "Selected folder contained no 3DM files."
     Exit Sub
   End If
 
   Dim aSelected, sSelected
   aSelected = Rhino.MultiListBox(aFiles, oFolder.Path)
   If IsArray(aSelected) Then
     For Each sSelected In aSelected
       Rhino.Print sSelected
     Next
   End If
 
 End Sub