使用特定字符串重命名文件夾中的文件vbs

有人可以幫助解釋我如何編寫一些vbs腳本來搜索具有特定字符串的文件並重命名它們？使用特定字符串重命名文件夾中的文件vbs

例如，說我有一個文件夾C：\測試

我想在C搜索：\測試字約翰和與說的一句話戴夫替換每個文件...

例如內容是：

john_list.txt auto.john.doc

腳本後：

dave_list.txt auto.dave.doc

你能幫忙嗎？

謝謝！

SOLUTION：

Dim sName 
Dim fso 
Dim fol 

' create the filesystem object 
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 

' get current folder 
Set fol = fso.GetFolder("c:\TEST") 

' 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, "john") <> 0 Then 
    ' replace underscore with space 
    sName = Replace(fil.Name, "john", "dave") 
    ' rename the file 
    fil.Name = sName 
End If 
Next 

' echo the job is completed 
WScript.Echo "Completed!"

來源

2013-06-26 Woodstock

我會盡快給予好評因爲你的意見是不是在說謊了（和 - 可選的 - 你透露你將如何應對「約翰尼」）。 –

你是什麼意思'評論不再說謊？「我說謊了什麼？ – Woodstock

你不處理下劃線和空格，但與約翰和戴夫。 –

對於遞歸到你需要的東西像this子文件夾。在文件的名稱替換文本可以做這樣的：

f.Name = Replace(f.Name, "john", "dave")

來源

2013-06-26 11:42:38

使用特定字符串重命名文件夾中的文件vbs

回答

相關問題