Question

我收到了代码

Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\test\file.txt"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If InStr(strLine,"ex3")> 0 Then
        strLine = Replace(strLine,"ex3","ex5")
    End If 
    WScript.Echo strLine
Loop

strLine替换部分我可以修复自己用于我自己的目的，但是我如何做这样的事情，以便它不需要文件的名称，它只是编辑文档中的所有文本文件？

Answer 1

你可以这样做，

strFolder = "c:\myfolder"
Set objFolder = objFS.GetFolder(strFolder)
For Each strFile In objFolder.Files
    strFileName =strFile.Name
    strFilePath = strFile.Path
    strFileExt = objFS.GetExtensionName(strFile)
    If strFileExt = "txt" Then
        Set objFile = objFS.OpenTextFile(strFile)
            ' your current code here..
        objFile.Close()
    End If
Next

如何使批处理文件编辑文本文件

1 个答案: