VBSで便利なプログラムを作れスレ

[1 デフォルトの名無しさん 2007/02/03(土) 17:49:47]

素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）

[724 デフォルトの名無しさん 2018/09/18(火) 07:47:05.14 ID:/fJcssx/]

Sub ReplaceFile(folderPath, srcString, destString)
　Call ReplaceName(folderPath, srcString, destString)
　Call ReplaceContent(folderPath, srcString, destString)
End Sub

Sub ReplaceName(folderPath, srcString, destString)
　Dim fileSystem
　Set fileSystem = CreateObject("Scripting.FileSystemObject")

　Dim folder
　Set folder = fileSystem.GetFolder(folderPath)

　Dim file
　For Each file In folder.Files
　　Dim destFile
　　destFile = folder.Path & "\" & Replace(file.Name, srcString, destString)

　　Call file.Move(destFile)
　Next

　Dim subFolder
　For Each subFolder In folder.SubFolders
　　Dim destFolder
　　destFolder = folder.Path & "\" & Replace(subFolder.Name, srcString, destString)

　　Call subFolder.Move(destFolder)
　Next
End Sub

[725 デフォルトの名無しさん 2018/09/18(火) 07:47:21.61 ID:/fJcssx/]

Sub ReplaceContent(folderPath, srcString, destString)
　Dim fileSystem
　Set fileSystem = CreateObject("Scripting.FileSystemObject")

　Dim folder
　Set folder = fileSystem.GetFolder(folderPath)

　Dim file
　For Each file In folder.Files
　　Dim text

　　Dim inStream
　　Set inStream = file.OpenAsTextStream(1)
　　text = inStream.ReadAll()
　　Call inStream.Close()

　　text = Replace(text, srcString, destString)

　　Dim outStream
　　Set outStream = file.OpenAsTextStream(2)
　　Call outStream.Write(text)
　　Call outStream.Close()
　Next
End Sub