I am just trying to read the first line in a textfile, make some decisions, then re-write the file with the NEW string. But it tells me Bad File Mode on the line in red. Why?
Thanks
Code:For i = 0 To UBound(arrTheRamFiles)
lblStatus.Caption = "Reading " & arrTheRamFiles(i)
Set objTextStream = objFso.OpenTextFile(arrTheRamFiles(i))
If Not objTextStream.AtEndOfStream Then
strWhatIsInTheRAMFile = objTextStream.ReadLine
' indicates no ?parameters at the end of the string
If LCase(Mid(strWhatIsInTheRAMFile, Len(strWhatIsInTheRAMFile), 1)) = "m" Then
strWhatIsInTheRAMFile = strWhatIsInTheRAMFile & strTheExtraStuff
Else
If InStr(1, LCase(strWhatIsInTheRAMFile), "author") = 0 Then
' add author=
strWhatIsInTheRAMFile = strWhatIsInTheRAMFile & "&author=""Coral Ridge Ministries"""
End If
End If
objTextStream.WriteLine strWhatIsInTheRAMFile
End If
Set objTextStream = Nothing
Next
