怎样批量删除文件夹中文件名的特定字

WXY075675

求助各位大师，怎么能快速把附件里的全部文件文件名里的“少年宫报名表”去掉，因为有很多个文件，一个个删费时间，谢谢了！

kzg2013

'建立一个EXCEL 表，和你的文件放一个目录下，放进代码，运行就可以了
Sub rnmfile()
Dim fso As Objectdim fd as object
dim fl as object
Dim s$
s = ActiveWorkbook.Path
Set fso = CreateObject("scripting.filesystemobject")
Set fd = fso.getfolder(s)
   For Each fl In fd.Files
          If fl.Name Like "*" & "少年宫报名表" & "*.xls" Then
            fl.Name = Replace(fl.Name, "少年宫报名表", "")
          End If
  Next

set fso=nothing
set fd=nothing
set fl=nothing
End Sub

WXY075675

kzg2013 发表于 2019-3-17 22:32
'建立一个EXCEL 表，和你的文件放一个目录下，放进代码，运行就可以了
Sub rnmfile()
Dim fso As Objectd ...

显示语法错误

WXY075675

kzg2013 发表于 2019-3-17 22:32
'建立一个EXCEL 表，和你的文件放一个目录下，放进代码，运行就可以了
Sub rnmfile()
Dim fso As Objectd ...

谢谢你，按你的代码，换了第二句就可以了  Sub rnmfile()
On Error Resume Next
Dim fl As Object
Dim s$
s = ActiveWorkbook.Path
Set fso = CreateObject("scripting.filesystemobject")
Set fd = fso.getfolder(s)
   For Each fl In fd.Files
          If fl.Name Like "*" & "少年宫报名表" & "*.xls" Then
            fl.Name = Replace(fl.Name, "少年宫报名表", "")
          End If
  Next

Set fso = Nothing
Set fd = Nothing
Set fl = Nothing
End Sub