主题：马上大佬看一下批量给文件重命名，为什么有些没被重命名啊？

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    
    For i As Integer = 0 To FileSys.GetFiles(dlg.SelectedPath).Count -1
        FileSys.RenameFile(FileSys.GetFiles(dlg.SelectedPath)(i),FileSys.GetFiles(dlg.SelectedPath).Indexof(FileSys.GetFiles(dlg.SelectedPath)(i)) & FileSys.GetFiles(dlg.SelectedPath)(i).SubString(FileSys.GetFiles(dlg.SelectedPath)(i).LastIndexOf(".")))
       
        Output.Show(FileSys.GetFiles(dlg.SelectedPath)(i) & FileSys.GetFiles(dlg.SelectedPath).Indexof(FileSys.GetFiles(dlg.SelectedPath)(i))  &  FileSys.GetFiles(dlg.SelectedPath)(i).SubString(FileSys.GetFiles(dlg.SelectedPath)(i).LastIndexOf(".")))

       
       
    Next
   
End If