怎么利用VBS修改INI格式文件

来源：百度知道 编辑：UC知道 时间：2024/09/21 22:22:27
有VBS熟的吗，帮写个VBS读取ini文件写入变量里的代码。具体是在我电脑D:\天龙八部\vip10.2B\RoleInfo下面有多个中文的ini格式文档，每个文档里都有ip=192.168.0.88 这个IP 我想弄个VBS可以一次性修改我要指定的IP，例如修改成ip=192.168.1.88 这个我能随便输入的IP，还有一个路径是D:\天龙八部\vip10.2B\Login\client.ini 这个，打开里面文档都有ip=多少的，就是想可以用VBS一次性修改指定目录下ini格式里的IP=什么的 有高手的帮帮忙，成功的话 在加分 谢谢~~

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE,_
"请选择文件夹：",OPTIONS,"D:\天龙八部\vip10.2B\")
Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

Source_IP = InputBox("格式如：192.168.0.0","请输入源IP","192.168.0.0")
obj_IP = InputBox("格式如：192.168.0.0","请输入替换IP","192.168.0.0")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = objFSO.GetFolder(objPath)
Set colFiles = oFolder.Files

For Each sFile in colFiles
If Lcase(objFSO.GetExtensionName(sFile)) = "ini" Then
Set oFile = objFSO.OpenTextFile(sFile, 1)
colLines = oFile.ReadAll
oFile.Close
colLines = Replace(colLines, "ip=" & Source_IP, "ip=" & obj_