尝试重命名文件夹中的文件(基于文件名中的字符串)

战士

嗨,我正在尝试创建一个Sub,我在其中找到一个文件的文件夹中,该文件的名称包含诸如“ test_file”之类的特定短语,然后使用其他名称/扩展名对其进行重命名。我有以下似乎无效的代码:(而且我也不知道如何在文件名中搜索特定字符串并根据其执行重命名)

Sub ReName()

Dim myFile As String
Dim myPath As String
Dim mVal As String

mVal = "_12345678_" 'test string'

myPath = "C:\Users\bf91955\Desktop\testfolder\" 'folder path'
myFile = Dir(pathname & "*test_file*") 'real file name is 2222_test_test_file.xlsx'
myFile = myPath & myFile

NewName = "new_test_file & mVal & .xlsx" 'save it as .xlsx and with the new filename including myVal'

Name myFile As myPath & NewName 'rename

End Sub

任何帮助,将不胜感激!

汤姆

看看你有几个错误的评论

Sub ReName()
    Dim myFile As String
    Dim myPath As String
    Dim mVal As String

    mVal = "_12345678_" 'test string'

    myPath = "C:\Users\bf91955\Desktop\testfolder\" 'folder path'
    '' You weren't referencing MyPath here - guessing copy and paste error
    myFile = Dir(myPath & "*test_file*") 'real file name is 2222_test_test_file.xlsx'
    myFile = myPath & myFile

    '' This was passing the variable as part of the string
    newname = "new_test_file" & mVal & ".xlsx" 'save it as .xlsx and with the new filename including myVal'

    Name myFile As myPath & newname 'rename

End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

根据部分文件夹中的部分文件名匹配,重命名文件名的子字符串

根据同一文件夹中的部分文件名匹配重命名文件名的子字符串

如何重命名文件夹中的文件名?

重命名文件夹中的文件名

如何匹配文件名中的字符串并根据字符串重命名文件?

如何使用匹配的字符串递归重命名文件夹名和文件名

重命名文件夹中的所有文件,删除重复的字符串部分

如何将文件重命名为文件名中的子字符串?

重命名文件夹中的文件,忽略当前文件名

无法重命名文件,文件夹名称与Ubuntu 13.10中的文件名冲突

根据另一个文件中的字符串重命名文件夹中的文件 - 使用 Python

文件夹或文件名中的Glob模式匹配字符串

从选择字符串输出中获取“父文件夹+文件名”

使用bash shell映射json字符串中文件夹中的文件名

重命名shellscript子字符串中的文件名

如何使用哈希中的字符串值重命名文件名?

重命名多个文件夹中的多个文件名

重命名文件夹中的文件名时,通配符不适用于重命名

在bash中重命名文件时重新排序文件名中的子字符串?

重命名文件夹中的文件

重命名文件夹中的文件

从文件名重命名文件夹 [脚本]

批处理文件以从 CSV 读取文件名并重命名文件夹中的文件

基于文件名中的单词的子文件夹?

重命名文件夹中的所有文件以在 Unix/Mac 上的文件名中包含校验和

查找文件名中包含空格和特定字符串的文件,并将其重命名

通过重新格式化文件名中嵌入的日期字符串来重命名文件

批处理文件重命名脚本交换文件名中的子字符串?

如何通过交换文件名中的子字符串来批量重命名文件?