How find and replace text in a js file in a folder

Hi,

I want to replace a text var =Scorm to var =Aicc in a js file in a folder or all the folders in a directory.

the directory path is mentioned in cell A1. I tried by harcoding the directory but it does not take the file path.

Sub ReplaceStringInFile()
Dim objFSO As Object
Dim objFil As Object
Dim objFil2 As Object
Dim StrFileName As String
Dim StrFolder As String
Dim SstrAll As String

Set objFSO = CreateObject("scripting.filesystemobject")
StrFolder = "D:\Aicc\"
StrFileName = Dir(StrFolder & "*Configuration.js")

Do While StrFileName <> vbNullString
    Set objFil = objFSO.opentextfile(StrFolder & StrFileName)
    strAll = objFil.readall
    objFil.Close
    Set objFil2 = objFSO.createtextfile(StrFolder & StrFileName)
    objFil2.Write Replace(strAll, "Scorm", "Aicc")
    objFil2.Close
    StrFileName = Dir
Loop
End Sub