선택된 폴더에서 Creo 파일 유형만 가져오는 코드

Function GetFileType(ByVal fileName As String) As String
    ' 파일 이름에 따라 파일 유형 반환
    If InStr(1, fileName, ".prt", vbTextCompare) > 0 Then
        GetFileType = "PRT"
    ElseIf InStr(1, fileName, ".asm", vbTextCompare) > 0 Then
        GetFileType = "ASM"
    ElseIf InStr(1, fileName, ".drw", vbTextCompare) > 0 Then
        GetFileType = "DRW"
    Else
        GetFileType = ""
    End If
End Function

---