다음의 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
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121