폴더에 있는 파일 List - IpfcBaseSession.ListFiles()

■ 함수

Function ListFiles (Filter as String, Version as IpfcFileListOpt, Path as String [optional]) as Istringseq
 - Returns a list of the files in the designated directory.

 

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    Dim oSession As IpfcBaseSession: Set oSession = conn.Session
    Dim oModel As IpfcModel
    Dim oIstringseq As Istringseq
    Set oIstringseq = oSession.ListFiles("*.*", EpfcFILE_LIST_LATEST, "")
    Dim i As Long
    
    For i = 0 To oIstringseq.Count - 1
           Cells(i + 5, "A") = oIstringseq.Item(i)
    Next i
            
    'Disconnect with Creo
    conn.Disconnect (2)

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

■ 프로그램 실행 결과

현재 작업공간에 있느 모든 Creo 파일을 폴더 이름과 표시 합니다.

 

oSession.ListFiles("*.*", EpfcFILE_LIST_LATEST, "")

1) 파일 타입을 표시 : "*.*". "*.prt", "*.asm", "*.drw" . . . ,등을 입력 할수 있습니다.

2) "EpfcFILE_LIST_LATEST" 최신 버전만 표시 합니다

3) 작업 공간 표시  : "" - 현재 작업공간을 표시 합니다. 다른 폴더의 파일을 보려면, "C:\KORE" 방법과 같이 입력 합니다.

 

 

주의 > CREO 에서 파일 Open 명령에 폴더 이름도 같이 넣을 수 있습니다.