Loops 如何为同一文件夹（同一目录）中的所有文件创建替换函数循环？

我的VBScript主要用于多个文本文件的替换功能。

Const ForReading=1
写入常数=2
第一次报告开始
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.OpenTextFile（“D:\rep01_”&年（现在）和右（“0”&月（现在），2）&右（“0”&天（现在-1），2）&.txt”，以便阅读）
如果objFSO.GetFile（“D:\rep01_”&年（现在）&右（“0”&月（现在），2）&右（“0”&天（现在-1），2）&.txt”）。大小为0，则
strText=objFile.ReadAll
objFile.Close
strNewText=替换（STREXT，$$$970A1，“SSS970A1”，1,1）
strNewText1=替换（strNewText，$$$979A1，“SSS979A1”，1,1）
strNewText2=替换（strNewText1，“$$$983A1”，“SSS983A1”，1,1）
设置objFile=objFSO.OpenTextFile（“D:\rep01_”&年（现在）和右（“0”&月（现在），2）&右（“0”&天（现在-1），2）&.txt”，用于写入）
objFile.WriteLine strNewText2
objFile.Close
如果结束
第一次报告结束
第二次报告开始
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchAP\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，以便阅读）
如果objFSO.GetFile（“D:\rep01\u UnmatchAP\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”），那么大小为0
strText=objFile.ReadAll
objFile.Close
strNewText=替换（STREXT，$$$970A1，“SSS970A1”，1,1）
strNewText1=替换（strNewText，$$$979A1，“SSS979A1”，1,1）
strNewText2=替换（strNewText1，“$$$983A1”，“SSS983A1”，1,1）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchAP\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，用于写入）
objFile.WriteLine strNewText2
objFile.Close
如果结束
第二次报告结束
第三次报告开始
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchAR\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，用于阅读）
如果objFSO.GetFile（“D:\rep01\u UnmatchAR\u0”）和Year（Now）和Right（“0”和Month（Now），2）和Right（“0”和Day（Now-1），2）和“.txt”）。那么大小为0
strText=objFile.ReadAll
objFile.Close
strNewText=替换（STREXT，$$$970A1，“SSS970A1”，1,1）
strNewText1=替换（strNewText，$$$979A1，“SSS979A1”，1,1）
strNewText2=替换（strNewText1，“$$$983A1”，“SSS983A1”，1,1）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchAR\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，用于写入）
objFile.WriteLine strNewText2
objFile.Close
如果结束
第三次报告结束
第四次报告开始
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchCutOff\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，用于阅读）
如果objFSO.GetFile（“D:\rep01\u UnmatchCutOff”&Year（Now）&Right（“0”&Month（Now），2）&Right（“0”&Day（Now-1），2）&txt”）。那么大小为0
strText=objFile.ReadAll
objFile.Close
strNewText=替换（STREXT，$$$970A1，“SSS970A1”，1,1）
strNewText1=替换（strNewText，$$$979A1，“SSS979A1”，1,1）
strNewText2=替换（strNewText1，“$$$983A1”，“SSS983A1”，1,1）
设置objFile=objFSO.OpenTextFile（“D:\rep01\u UnmatchCutOff\u”年（现在）和右（“0”月（现在），2）和右（“0”日（现在-1），2）和“.txt”，用于写入）
objFile.WriteLine strNewText2
objFile.Close
如果结束
第四次报告结束

但是这种代码太长（因为它是基于特定文件名的）并且重复使用相同的替换函数，我想寻求关于如何为同一文件夹中的所有文件创建替换函数循环的帮助

非常感谢你的回答

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("C:\windows")

Set Fls = fldr.files

For Each thing in Fls
    msgbox thing.path
Next

---

<内容>＝.Word.RealOb/<代码> .< /P>处理任何事情都不需要花费更少的时间，将所有的东西都放在一个循环中——它只是更小的代码，更容易维护。我意识到你是相当新的，但是你问的很多问题都是重复的，请考虑在谷歌中快速搜索（只使用“只搜索”）。在发布问题之前，避免失望。请参阅。不确定否决票是关于什么的？这是循环浏览文件夹中所有文件的方法。我唯一想说的是答案有点含糊不清。这个答案给了我如何做的想法。

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("C:\windows")

Set Fls = fldr.files

For Each thing in Fls
    msgbox thing.path
Next