使用vb.net使用其他文件夹中的其他文件名重命名文件夹中的文件

我正在写一个节目，我想标题可以解释一切

它确实可以工作，但是只有一个文件，问题是程序忽略了下一个文件。保存第一个文件——成功——仍然是他的优先事项，他找不到它，所以它崩溃了

这是我的密码

          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     

有人能告诉我怎么做吗？

---

正如您所见，我是一名初学者，我非常渴望得到帮助：

为什么要多次重命名每个fi文件？这就是内心的力量所做的。您想重命名哪些文件？我想重命名fi，我只使用了内部foreach，因为foreach允许我检索文件并处理每个文件，因此我想用内部的每个文件名替换外部foreach提供的每个文件名。。那么，有没有什么方法可以在不使用2个foreach’s的情况下检索文件并使用它们的属性：谢谢你将fi.FillName重命名为foo的第一个实例。然后在foo的第二个实例上，fi.FileName在重命名后不再存在。还有，检查过了。对不起，我不明白这对我有什么帮助