告别手动重命名!这个Excel小工具,批量加前缀/后缀一键搞定

Private Sub LoadFileList()    lbFiles.Clear    Dim fso As Object, folder As Object, file As Object    Set fso = CreateObject("Scripting.FileSystemObject")    Set folder = fso.GetFolder(selectedFolder)    fileCount = 0    For Each file In folder.Files        fileCount = fileCount + 1        ReDim Preserve fileList(1 To fileCount)        fileList(fileCount) = file.Name        lbFiles.AddItem file.Name        lbFiles.List(fileCount - 1, 1) = GetNewFileName(file.Name)    Next fileEnd Sub

Private Function GetNewFileName(oldName As String) As String    Dim prefix As String, suffix As String, ext As String, baseName As String    prefix = txtPrefix.Text    suffix = txtSuffix.Text    ext = GetExtension(oldName)      ' 提取扩展名 .jpg/.xlsx 等    baseName = GetBaseName(oldName)  ' 提取文件名主体    GetNewFileName = prefix & baseName & suffix & extEnd Function

Private Sub txtPrefix_Change()    UpdatePreviewEnd SubPrivate Sub txtSuffix_Change()    UpdatePreviewEnd SubPrivate Sub UpdatePreview()    If fileCount = 0 Then Exit Sub    Dim i As Integer    For i = 1 To fileCount        lbFiles.List(i - 1, 1) = GetNewFileName(fileList(i))    Next iEnd Sub

Private Sub btnRename_Click()    ' ... 省略路径检查 ...    Dim fso As Object, successCount As Integer, failCount As Integer    Set fso = CreateObject("Scripting.FileSystemObject")    For i = 1 To fileCount        oldPath = selectedFolder & "\" & fileList(i)        newPath = selectedFolder & "\" & GetNewFileName(fileList(i))        If oldName <> newName Then            If Not fso.FileExists(newPath) Then                Name oldPath As newPath                successCount = successCount + 1            Else                failCount = failCount + 1            End If        End If    Next i    MsgBox "重命名完成！成功：" & successCount & " 失败：" & failCountEnd Sub

Private Sub lbFiles_DblClick(ByVal Cancel As MSForms.ReturnBoolean)    If lbFiles.ListIndex = -1 Then Exit Sub    Dim fileName As String    fileName = lbFiles.List(lbFiles.ListIndex, 1)  ' 新文件名优先    If fileName = "" Then fileName = lbFiles.List(lbFiles.ListIndex, 0)    ThisWorkbook.FollowHyperlink selectedFolder & "\" & fileNameEnd Sub