vbsで文字を置換したいのに全部消える？

Question

前提・実現したいこと

vbsで複数のphpファイルの内容を一括で、そのファイル自身の名前に変更するプログラムを作りたいです。

以下のようなコードを作成しましたが、

発生している問題・エラーメッセージ

「ファイルの最後を超えた入力を行おうとしました。」って出たので0バイトのファイルを消し、そしたら「プロシージャの呼び出し、または因数が不正です。」って出て、それでも実行すると0バイトのファイルが増える(ファイルの中身が消えていく)エラーが発生中です

該当のソースコード

Option Explicit '変数の宣言を省略させないためのものです。

Const TARGET_FOLDER = "d:..."     '※フォルダを指定
Const REPLACE_FROM = "so" '※置換前文字列
Dim   REPLACE_TO                    '  置換後文字列

Const ForReading = 1 '読み込み
Const ForWriting = 2 '書きこみ（上書きモード）
Const ForAppending = 8 '書きこみ（追記モード）

Dim strFilePath, infile, outfile, strData, strExt '変数を宣言
Dim objFSO, objFolder, objFile, objSubFolder, objTXT '変数を宣言
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") 'ドライブ・フォルダ・ファイルなどを操作できるオブジェクトです。
Set objFolder = objFSO.GetFolder(TARGET_FOLDER)

For Each objFile In objFolder.Files
    strFilePath = objFSO.BuildPath(TARGET_FOLDER, objFile.Name)
    strExt = objFSO.GetExtensionName(objFile.Name)

    If objFile.Size > 0 And LCase(strExt) = "php" Then
        Set infile = objFSO.OpenTextFile(strFilePath,ForReading)
        strData = infile.ReadAll
        infile.Close
        Set infile = Nothing
        Set outfile = objFSO.OpenTextFile(strFilePath,ForWriting)   '(上書き)
        REPLACE_TO = objFile.Name '※自身のファイル名
        outfile.Write Replace(strData,REPLACE_FROM,REPLACE_TO)
        outfile.Close
        Set outfile = Nothing
    End If
Next

Set objFolder = Nothing
Set objFSO = Nothing

MsgBox "終了", vbInformation

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

If objFile.Size > 0 Then 

とかで読み飛ばしたら何とかなりますか？

Comments

[fyo]

ありがとうございます！やってみます。

[fyo]

すみません、できませんでした。

[jinoji]

If objFile.Size > 0 And LCase(strExt) = "php" Then

[fyo]

ありがとうございます！27行目9文字目プロシージャの呼び出し、または因数が不正です。と出ました。

[jinoji]

対象ファイルがUTF-8ということなので、
OpenTextFile をやめて、 ADODB.Stream を使った処理に変えるとかですかね。

[fyo]

ありがとうございます！やってみます！