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

直接说你要做什么吧，看不懂你的意思。

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim files = FileSys.GetFiles(dlg.SelectedPath)
    For Each file As String In files
        Dim name As String = FileSys.GetName(file)
        Dim idx = name.LastIndexOf(".")
        If idx >= 0 Then
            FileSys.RenameFile(file, name.SubString(0, idx))
        End If
    Next
End If

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    Dim files = FileSys.GetFiles(dlg.SelectedPath)
    Dim i As Integer = 1
    For Each file As String In files
        Dim name As String = FileSys.GetName(file)
        Dim idx = name.LastIndexOf(".")
        If idx >= 0 Then
            FileSys.RenameFile(file, i & name.SubString(idx))
        Else
            FileSys.RenameFile(file, i)
        End If
        i += 1
    Next
End If