使用vb.net将文件夹中的文件重命名为另一个文件夹中的其他文件名

Question

我正在编写一个程序，我想这个标题可以解释一切。

它确实有效，但只有一个文件，问题是程序忽略了下一个克拉第一个文件 - 成功 - 仍然是他的首要任务，他找不到它所以它崩溃

这是我的代码

          Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    IO.Directory.SetCurrentDirectory(TextBox2.Text)


    Dim info As New IO.DirectoryInfo(TextBox1.Text)
    Dim imfo2 As New IO.DirectoryInfo(TextBox2.Text)
    For Each fi In imfo2.GetFiles


        For Each foo In info.GetFiles
            Dim namewithoutavi As String = foo.Name.Substring(0, foo.Name.Length - 4)
            Dim fixedname As String = namewithoutavi & ".srt"

            My.Computer.FileSystem.RenameFile(fi.FullName, fixedname)      


        Next

    Next



End Sub     

有人可以告诉我如何做对吗？ 你可以看到我是初学者，我非常渴望得到帮助：）