Function ReadSSF
   Dim fso, ts, s, MyArray, filespec, ssf, countgood, countbad
   Const inipath = "c:\mame\ini\"
   Const ext = ".ini"
   Const ForReading = 1
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set ts = fso.OpenTextFile("c:\mame\ini\ssf.txt", ForReading)
   Do While ts.AtEndOfStream <> True
      s = ts.ReadLine
	  if s <> "" then
	  	MyArray = Split(s, ",")
		if ReportFileStatus(inipath&MyArray(0)&ext) then
			filespec = inipath&MyArray(0)&ext
			if MyArray(1) = "" then ssf = 0 else ssf = MyArray(1)
			AlterIniFile filespec, ssf
			countgood = countgood + 1
		end if
		countbad = countbad + 1
	  end if
   Loop
   MsgBox ("INIs altered: " & countgood & " Not Altered: " & countbad)
   ts.Close
End Function

Function ReportFileStatus(filespec)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(filespec)) Then
      'File Exists
	  ReportFileStatus = TRUE
   Else
      'File Does Not Exist
	  ReportFileStatus = FALSE
   End If
End Function

Function AlterIniFile(filespec, ssf)
   Const ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(filespec, ForAppending)
   f.WriteLine "ssf "&ssf
   f.close
End Function

ReadSSF