Summary: RhinoScript 의 MultiListBox 함수를 사용하여 여러 파일을 선택하는 방법을 소개합니다.

다음의 RhinoScript 코드는 MultiListBox 함수를 사용하여 선택할 파일 이름의 목록을 표시합니다.

 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