VBA-FileToFileUpdate

公立小FileToFileUpdate（ByValのファイル名として文字列、ByValのstrFrmとして文字列、ByValのstrToとして文字列）

点心newFileNameとして文字列

newFileName = fileNameに＆「_bak」

名前のファイル名としてnewFileName

薄暗いvFsoなどの新しいScripting.FileSystemObjectオブジェクト
点心vTextStreamRとしてテキストストリーム
薄暗いvTextStreamWとしてテキストストリーム

の設定vTextStreamR = vFso.GetFile（newFileName）.OpenAsTextStream（ForReading、TristateUseDefault）

コールvFso.CreateTextFile（ファイル名、TRUE）

に設定vTextStreamW = vFso.GetFile（fileNameに）.OpenAsTextStream（ForWriting、TristateUseDefault）

ドゥvTextStreamR.AtEndOfStreamまで

vTextStreamW.WriteLineは（置き換えvTextStreamR.ReadLine、strFrm、strTo）

ループ


を設定しvTextStreamR =何も
セットvTextStreamW =何も

コールvFso.DeleteFile（newFileName）
を設定しvFso =何も

End Subの