如何批量去掉文件名中的某个词?

发布网友 发布时间：2022-03-04 21:25

我来回答

共2个回答

热心网友 时间：2022-03-04 22:55

怎么批量去掉文件名中某部分相同字符！

第1步，首先我们要安装重命名软件然后打开，点击添加左上角【添加文件】或软件空白的中间位置，将需要修改文件名的文件导入到软件中。

第2步，然后在软件的左边进行设置，文件的命名方式选择“替换”；在查找内容的右边输入要去除的部分文字或字符；替换内容右边为空（不用填写），这时候在右边可以预览到新文件名已经去除了相同的文字字符。

第3步，然后点击【开始重命名】按钮启动软件程序，处理完成后软件会弹出“重命名成功”的提示框。

第4步，对比案例中修改前后的文件名可以看到，原本所有文件名中包含的“美景”两个字全部被删除了，批量去除成功！

热心网友 时间：2022-03-05 00:13

会使用Excel吗？如果会，可以自制一个文件重命名程序。
启动Excel后，按下ALT+F11弹出VBA编辑器，双击左侧资源管理器列表的任一项（如 Sheet1 ），将以下代码粘贴到右侧的编辑区中，运行代码（点一下上部工具栏一个“向右的三角形”命令按钮）即可。

'以下是需要复制的代码

Sub GetFile()

'本示例代码将指定文件夹中含有指定字符的文件重命名

Dim Fd As FileDialog
Dim Fs As FileSearch
Dim FileName As String
Dim FileNewName As String
Dim FindStr As String
Dim RepStr As String
Dim Str1 As String
Dim i As Long
Dim j As Long

Set Fd = Application.FileDialog(msoFileDialogFolderPicker)

'指定路径
If Fd.Show = -1 Then
Str1 = Fd.SelectedItems(1)
Else
Set Fd = Nothing
Exit Sub
End If

If MsgBox("确实需要将指定文件夹的特定文件重命名吗？", vbQuestion + vbYesNo, "提示") = vbNo Then
Set Fs = Nothing
Set Fd = Nothing
Exit Sub
End If

Sheets(1).Cells.Delete

'FindStr等号后引号内表示需要查找的字符，
'RepStr等号后引号内表示需要替换掉的字符，不填写就表示清除掉
'请自行修改
FindStr = "联华"
RepStr = ""

j = 1

Set Fs = Application.FileSearch
With Fs
.LookIn = Str1
.FileName = "*.*"
.Execute
For i = 1 To Fs.FoundFiles.Count
FileName = .FoundFiles(i)
If InStr(1, FileName, FindStr) > 0 Then
j = j + 1
FileNewName = Replace(FileName, FindStr, RepStr)
Name FileName As FileNewName
Sheets(1).Cells(j, 1) = FileName
Sheets(1).Cells(j, 2) = FileNewName
End If
Next
End With

Set Fs = Nothing
Set Fd = Nothing

With Sheets(1)
.Cells(1, 1).Value = "原文件名"
.Cells(1, 2).Value = "新文件名"
.Columns.AutoFit
End With

MsgBox "重命名过程结束。" & vbCrLf & "共有 " & j - 1 & "个文件被处理。", vbInformation, "提示"

End Sub