パス名から拡張子だけを変更するには

パス名から拡張子だけを変更してます。
キーワードは「PathRenameExtension()関数」です。
PathRenameExtension()関数はパス名の拡張子だけを変更します。
自分で作るよりもこの関数を使ったほうが確実に処理できます。

実行時の様子

'パス名の拡張子のみを変える
Private Declare Function PathRenameExtension Lib "shlwapi.dll" Alias "PathRenameExtensionA" _
    (ByVal pszPath As String, ByVal pszExt As String) As Long

Private Sub Command1_Click()
    Dim temp As String
    
    temp = Me.Text1.Text & String(256, Chr(0))          'フルパス & バッファ確保
    Call PathRenameExtension(temp, Me.Text2.Text)       '拡張子の変更
    Me.Text3.Text = temp                                '結果表示
End Sub

ダウンロード