dingcool

取文件名 放入变量 将文件名变成字符串进行删除， 将删除后的字符串重命名文件

Private Function DelStrInStr(oldstr As String, delstr As String) As String '删除指定字符串函数
DelStrInStr = oldstr
Dim a, oldlen, dellen As Integer
a = InStr(oldstr, delstr)
If a <> 0 Then
           oldlen = Len(oldstr)
           dellen = Len(delstr)
           DelStrInStr = Left(oldstr, a - 1) + Right(oldstr, oldlen - a + 1 - dellen)
End If
End Function
复制代码

xinjinjie

又不是没搜索，不知道该搜索什么关键字，搜索了“文件名修改”，“关键字删除”等自己想到的标题，找不到想要的答案才发帖的！