Php replacement works only for html targets in vbs

Option Explicit' variable declaration is not omitted.

Const TARGET_FOLDER="C:\Users\drive\aaa" フォルダ Specify folder
Const REPLACE_FROM = "so" 置 Pre-replacement string
Dim REPLACE_TO' Replacement String

Const ForReading=1' Load
Const ForWriting=2' Write (Overwrite Mode)
Const ForAppending = 8' Write (Additional Mode)

DimstrFilePath,infile,outfile,strData,strExt' variable declared
DimobjFSO, objFolder, objFile, objSubFolder, objTXT' variable declared
SetobjFSO=WScript.CreateObject("Scripting.FileSystemObject")' object that can manipulate drive folder files, etc.
SetobjFolder=objFSO.GetFolder (TARGET_FOLDER)

For EachobjFile InobjFolder.Files
    strFilePath=objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
    strExt=objFSO.GetExtensionName(objFile.Name)
    If LCase(strExt) = "html" Then
        Set infile=objFSO.OpenTextFile(strFilePath, ForReading)
        strData=infile.ReadAll
        file.Close
        Set profile=Nothing
        Set outfile=objFSO.OpenTextFile(strFilePath, ForWriting)' (overwrite)
        REPLACE_TO=objFile.Name' *Your own filename
        outfile.WriteReplace(strData, REPLACE_FROM, REPLACE_TO)
        outfile.Close
        Set outfile=Nothing
    End If
Next

SetobjFolder=Nothing
SetobjFSO=Nothing

MsgBox "End", vbInformation