Как заставить пакетный файл редактировать текстовый файл

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