Vbscript 使用VBS搜索关键字并重命名整个文件
我花了不少时间四处看看。我确实找到了一个非常接近我所寻找的方法，但它取代了关键字Vbscript 使用VBS搜索关键字并重命名整个文件,vbscript,Vbscript,我花了不少时间四处看看。我确实找到了一个非常接近我所寻找的方法，但它取代了关键字 Dim sName Dim fso Dim fol ' create the filesystem object Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' get current folder Set fol = fso.GetFolder("F:\Downloads") ' go thru each file
Dim sName
Dim fso
Dim fol
' create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
' get current folder
Set fol = fso.GetFolder("F:\Downloads")
' go thru each files in the folder
For Each fil In fol.Files
' check if the file name contains underscore
If InStr(1, fil.Name, "[wizardry] tv show bob - 13") <> 0 Then
' replace underscore with space
sName = Replace(fil.Name, "[wizardry] tv show bob - 13", "tv show bob S03E13")
' rename the file
fil.Name = sName
End If
Next
' echo the job is completed
WScript.Echo "Completed!"
Dim sName
模糊fso
昏暗的
'创建文件系统对象
设置fso=WScript.CreateObject（“Scripting.FileSystemObject”）
'获取当前文件夹
Set fol=fso.GetFolder（“F:\Downloads”）
'浏览文件夹中的每个文件
对于以下文件中的每个文件
'检查文件名是否包含下划线
如果指令（1，文件名，“[Wizarry]电视节目bob-13”）为0，则
'将下划线替换为空格
sName=替换（文件名，“[魔法]电视节目bob-13”，“电视节目bob S03E13”）
'重命名文件
fil.Name=sName
如果结束
下一个
'回显作业已完成
Echo“已完成！”
非常感谢您的帮助。我想您需要用原始扩展名生成一个新名称，而不是替换？如果没有，请提供更多详细信息。
Dim sName
Dim fso
Dim fol
Dim fil
Dim ext
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder("F:\Downloads")
For Each fil In fol.Files
'may need to specify a comparison
If InStr(1, fil.Name, "[wizardry] tv show bob - 13", vbTextCompare) <> 0 Then
ext = fso.GetExtensionName(fil)
If Len(ext) > 0 Then ext = "." & ext
sName = "tv show bob S03E13" & ext
fil.Name = sName
End If
Next
WScript.Echo "Completed!"
Dim sName
模糊fso
昏暗的
暗色胶片
暗分机
设置fso=WScript.CreateObject（“Scripting.FileSystemObject”）
Set fol=fso.GetFolder（“F:\Downloads”）
对于以下文件中的每个文件
'可能需要指定一个比较
如果指令（1，文件名，“[Wizard]电视节目bob-13”，vbTextCompare）为0，则
ext=fso.GetExtensionName（fil）
如果Len（ext）>0，则ext=“.”和ext
sName=“电视节目bob S03E13”&ext
fil.Name=sName
如果结束
下一个
Echo“已完成！”
选项Explicit