Как программно переименовать файл, убрав 5 последних символов

Dim yourFile As String = "c:\ren\something.txt"
        Dim f As New System.IO.FileInfo(yourFile)
        yourFile = Microsoft.VisualBasic.Left(f.Name, f.Name.Length - 9) 'расширение точка и 5 символов=9
        yourFile = yourFile & Microsoft.VisualBasic.Right(f.Name, 4)
        'и потом
        f.CopyTo(f.DirectoryName & "\" & yourFile)
        f.Delete()
        'или лучше
        Microsoft.VisualBasic.Rename(f.FullName, f.DirectoryName & "\" & yourFile)
        'а можно и так
        My.Computer.FileSystem.RenameFile(f.FullName, f.DirectoryName & "\" & yourFile)

yourFile = Microsoft.VisualBasic.Left(f.Name, 8)

        Dim F() As String = IO.Directory.GetFiles("C:\ren")
        For Each _F As String In F
            My.Computer.FileSystem.RenameFile(_F, IO.Path.GetFileNameWithoutExtension(_F).Substring(0, 5) & IO.Path.GetExtension(_F))
        Next

        Dim F() As String = IO.Directory.GetFiles("C:\ren")
        Dim Tmp As String
        For Each _F As String In F
            Tmp = IO.Path.GetFileNameWithoutExtension(_F)
            My.Computer.FileSystem.RenameFile(_F, Tmp.Substring(0, Tmp.Length - 5) & IO.Path.GetExtension(_F))
        Next

        Dim F() As String = IO.Directory.GetFiles("C:\ren")
        Dim Tmp As String
        For Each _F As String In F
            Tmp = IO.Path.GetFileNameWithoutExtension(_F)
            My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))
        Next

F()

If F.Length = 0 then
MsgBox "Папка пустая"

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim originpath As String ' начальный путь к файлу
        Dim resultpath As String ' конечный путь к файлу
        Dim removedcount As Integer = 5 ' количество удаляемых символов
 
        ' получаем путь к оригинальному файлу
        Dim ofd As New OpenFileDialog With {.Multiselect = False}
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            originpath = ofd.FileName
        Else
            Exit Sub
        End If
 
        'небольшая проверка
        Dim fnlen As Integer = IO.Path.GetFileNameWithoutExtension(originpath).Length
        If Not fnlen > removedcount Or Not IO.File.Exists(originpath) Then
            MsgBox("Количество удаляемых символов больше количества символов в имени файла или файла не существует по указанному пути!", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
 
 
        ' получаем расширение
        Dim ext As String = IO.Path.GetExtension(originpath)
        ' теперь удаляем последние символы в количестве removedcount до расширения
        resultpath = originpath.Remove(originpath.Length - ext.Length - removedcount, removedcount)
        ' ну и переименовываем
        My.Computer.FileSystem.RenameFile(originpath, resultpath)
    End Sub

Dim f = From files In IO.Directory.GetFiles("C:\ren") Where files.Length <> 9
        If f.Count = 0 Then
            MessageBox.Show("Нет файлов")
        End If
        Dim Tmp As String
        For Each _F As String In F
            Tmp = IO.Path.GetFileNameWithoutExtension(_F)
            My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))
        Next

 My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))

        Dim F() As String = IO.Directory.GetFiles("C:\ren")
        Dim Tmp As String
        For Each _F As String In F
            Tmp = IO.Path.GetFileNameWithoutExtension(_F)
            If Tmp.Split("_").Length > 1 Then
                'If Tmp.Contains("_") then
                My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))
            End If
        Next

 Dim f = From files In IO.Directory.GetFiles("C:\ren") Where files.Length <> 19

 Dim F() As String = IO.Directory.GetFiles("C:\ren")
        Dim Tmp As String
        If F.Length = 0 Then
            MsgBox("Папка пустая" & " " & CheckBox2.Text, MsgBoxStyle.Information, "Info")
        End If
        For Each _F As String In F
            Tmp = IO.Path.GetFileNameWithoutExtension(_F)
            If Tmp.Split("_").Length > 1 Then
                'If Tmp.Contains("_") then
                My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))
            End If
        Next

 My.Computer.FileSystem.RenameFile(_F, Tmp.Split("_")(0) & IO.Path.GetExtension(_F))