更改使用VBScript

Question

你好我成功改變使用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 

現在我想就放在文件夾中的「V」（子文件夾）每.txt文件到改名字也。 或定義改變路徑（「C：符\ v \ t_XXX），所以每個文件夾T_在這條道路將開始它裏面更改的所有文件以txt結尾

如何做到這一點 感謝。？！

Answer 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