현재 활성화된 폴더 이름 알아보기

▶ 속성(Property)과 Function에 대해 알아보기

 

현재 설정된 작업 디렉토리의 Path와 폴더 이름을 표시합니다.변수 "workpath"에 Path와 폴더 이름을 넣습니다. 엑셀 Cel "C2"에 표시 됩니다. 

    Function GetCurrentDirectory () as String
   ▶ Creo Parametric에 대한 현재 작업 디렉토리의 절대 경로 이름을 가져옵니다.

 

▶ 소스코드

Sub Model_Nanme()
    
    On Error GoTo RunError
    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection
    Dim session As pfcls.IpfcBaseSession
    Dim workpath As String
   
    Set conn = asynconn.Connect("", "", ".", 5)
    Set session = conn.session
    workpath = session.GetCurrentDirectory
    Range("C2").Value = workpath
   
    'Disconnect with Creo
    conn.Disconnect (2)
    
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

 

▶ 프로그램 실행 화면

 

 

 

 

 

VBA에서 속성이란 ?

 

엑셀 VBA 속성(Property) 총정리 강의 :: VBA 기초 - 오빠두엑셀

 

 

 

 

 

 

 

 

 

sub & Function

 

03.프로시저의 호출