パス名から拡張子だけを取り除くには

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

実行時の様子

'フルパス名から拡張子のみを除いたパス名を取得する
Private Declare Sub PathRemoveExtension Lib "shlwapi.dll" Alias "PathRemoveExtensionA" _
    (ByVal pszPath As String)

Private Sub Command1_Click()
    Dim temp As String
    temp = Me.Text1.Text & String(256, Chr(0))      'フルパス名 & バッファ確保
    Call PathRemoveExtension(temp)
    MsgBox temp
End Sub

ダウンロード