# 5 IpfcBaseSession : session에 있는 모델들 이름 모두 표시

■ Session에 있는 모든 모델 이름 표시 방법

Creo Session 안에 있는 creo 파일 이름을 표시 합니다. 번호와 함께 파일이름, 총 파일 수량 이 표시 됩니다.
만일 Creo Session 안에 creo 파일이 없으면 파일 수량은 "0"으로 표시 됩니다.

■ 코드

Sub session_file_name()

    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection
    Dim session As pfcls.IpfcBaseSession
    Dim Model As pfcls.IpfcModel
    Dim sessioncount As Integer
    Dim sessionindex As IpfcModel
    Dim creofilename As String
    Dim i As Integer
 
 On Error GoTo RunError
    Set conn = asynconn.Connect("", "", ".", 5)
    Set session = conn.session

    '//Quantity of creo files in seseetion   
    sessioncount = session.ListModels().Count
    
    For i = 0 To sessioncount - 1
        Cells(i + 3, "C").Value = i + 1
        Cells(i + 3, "D").Value = session.ListModels().Item(i).Filename
    Next i
         
    MsgBox "파일 개수는: " & sessioncount & " 개 입니다", vbInformation
       
    'Disconnect with Creo
    conn.Disconnect (2)
    
    'Cleanup
    Set asynconn = Nothing
    Set conn = Nothing
    Set session = Nothing
    Set Model = Nothing
      
Exit Sub
    
RunError:
    If Err.Number <> 0 Then
        MsgBox "Process Failed : Unknown error occurred." + Chr(13) + _
                "Error No: " + CStr(Err.Number) + Chr(13) + _
                "Error: " + Err.Description, vbCritical, "Error"
        If Not conn Is Nothing Then
           If conn.IsRunning Then
                conn.Disconnect (2)
            End If
        End If
    End If

End Sub

 

▷ MsgBox 함수 사용 방법

엑셀 VBA에서 InputBox로 입력받고, MsgBox로 출력하기

---

영업 문의 : lionkk@idt21c.com