파일 화장자 이름 변경 하기 / 폴더에 동일한 이미지 체크 하기

파일 이름을 확장자를 변경 합니다.
korea.prt를 korea.jpg로 변경 합니다.       korea.asm을 korea.jpg로 변경 합니다

 

코드는 아래와 같습니다

Sub creoExtendChange()


    Dim  CreoFileName As String, FileNameCheck As String
    
    CreoFileName = Cells(4, "D")
    
    FileNameCheck = Right(CreoFileName, 3)

    If FileNameCheck = "prt" Then
    
       Cells(4, "F") = Replace(CreoFileName, ".prt", ".jpg")
       
            ElseIf FileNameCheck = "asm" Then
    
                Cells(4, "F") = Replace(CreoFileName, ".asm", ".jpg")
       
    End If


End Sub

 

폴더에 Creo 파일 이름과 동일한 이미지가 있는지 체크 하기

ub creoExtendChange()


    Dim CreoFileName As String, FileNameCheck As String, oFolderName As String, ImageCheck As String
    
    CreoFileName = Cells(4, "D")
    
    FileNameCheck = Right(CreoFileName, 3)

    If FileNameCheck = "prt" Then
    
       Cells(4, "F") = Replace(CreoFileName, ".prt", ".jpg")
       
            ElseIf FileNameCheck = "asm" Then
    
                Cells(4, "F") = Replace(CreoFileName, ".asm", ".jpg")
       
    End If
    
    CreoFileName = Cells(4, "F")
    oFolderName = "C:\PTC\ToolBOX\temp_images"
    ImageCheck = Dir(oFolderName & "\" & CreoFileName)
    
    If ImageCheck <> "" Then
    
        MsgBox "존재"
        
     Else
     
        MsgBox "없음"
    
    End If
    
End Sub