使用 VBScript 更改文件名答案

【问题标题】：Changing a file name using VBScript使用 VBScript 更改文件名
【发布时间】：2014-03-12 17:50:14
【问题描述】：

您好，我通过使用此代码成功地使用 VBS 更改了文件名：

Set fso = CreateObject("Scripting.FileSystemObject")

set oFldr = fso.getfolder("C:\v\t_TEST\")

for each ofile in oFldr.Files
 if lcase(fso.GetExtensionName(ofile.Name)) = "txt" then
  ofile.name = "index.txt"
  Exit for
 end if
Next

现在我想让每个 .txt 文件都放在文件夹“v”（子文件夹）上以更改它的名称。或者定义一个变化的路径（“C:\v\t_XXX），所以这个路径中每个以t_开头的文件夹都会在里面发生变化，所有的文件都以.txt结尾。

我该怎么做？谢谢！

【问题讨论】：

标签： vbscript

【解决方案1】：

我相信这就是你要找的......

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFldr = fso.getfolder("C:\v\")
For Each fld In ofldr.SubFolders
    If Left(fld.name, 2) = "t_" Then
        Set ofls = fso.GetFolder("C:\v\" & fld.name & "\")
        For Each ofile In ofls.Files
            If LCase(fso.GetExtensionName(ofile.Name)) = "txt" Then
                ofile.name = "index.txt"
                Exit For
            End If
        Next
    End If
Next

【讨论】：

请处理Set ofls = ofls = fso.GetFolder("C:\v\" & fld.name & "\") - 也许使用您已经拥有的fld。
糟糕！谢谢 ekkehard