1

特定の文字列を含むファイルを検索して名前を変更する vbs スクリプトを作成する方法を説明してください。

たとえば、フォルダー c:\test があるとします。

c:\test で John という単語を含むすべてのファイルを検索し、Dave という単語に置き換えたい...

例: 内容は次のとおりです。

john_list.txt auto.john.doc

スクリプトの後:

dave_list.txt auto.dave.doc

手伝ってくれますか？

ありがとう！

解決：

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!"
4

1 に答える 1

3

サブフォルダーに再帰するには、次のようなものが必要です。ファイル名のテキストを置き換えるには、次のようにします。

f.Name = Replace(f.Name, "john", "dave")
于 2013-06-26T11:42:38.533 に答える