Home/ Questions/Q 7192277
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-28T19:54:27+00:00

I am trying to implement a find and replace for all files in a

  • 0

I am trying to implement a find and replace for all files in a folder using a vbs script, here is what I have so far

Dim fso,folder,files,oldFileContents,newFileContents,FIND,REPLACE

FIND = "textToBeReplaced"
REPLACE = "localhost"

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("HTML")
Set files = folder.Files

For each item In files
    oldFileContents = GetFile(item.Path)
    newFileContents = replace(oldFileContents,FIND,REPLACE,1,-1,1)
    WriteFile FileName,newFileContents
Next

but when I try to run it I get and error, “Type Mismatch: ‘GetFile'”, what am I doing wrong?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    You missed out the fso. on

    oldFileContents = fso.GetFile(item.Path)

    and

    fso.WriteFile FileName,newFileContents

    EDIT: as per discussion below, please note this answer was only meant to show where your error was occurring. It was assumed that your intent was to develop your code further once your got past this error, which if so, I’m sure you’ve already seen Ekkehard has provided some very helpful guidance on his answer.

    • 0