07-27-2013, 07:03 PM
VBS is picking up something i>>?[General] using this vbs found online, all i did was to change so it can read the ppsspp.ini
open note pad save as 1.vbs
Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2
Function LoadStringFromFile(filename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("ppsspp.ini", fsoForReading)
LoadStringFromFile = f.ReadAll
End Function
Sub SaveStringToFile(filename, text)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("ppsspp.ini", fsoForWriting)
f.Write text
End Sub
'SaveStringToFile "new.ini", "Hello World" & vbCrLf
MsgBox LoadStringFromFile("ppsspp.ini")
open note pad save as 1.vbs
Option Explicit
Const fsoForReading = 1
Const fsoForWriting = 2
Function LoadStringFromFile(filename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("ppsspp.ini", fsoForReading)
LoadStringFromFile = f.ReadAll
End Function
Sub SaveStringToFile(filename, text)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("ppsspp.ini", fsoForWriting)
f.Write text
End Sub
'SaveStringToFile "new.ini", "Hello World" & vbCrLf
MsgBox LoadStringFromFile("ppsspp.ini")
ASRock Fatal1ty Z97 Killer | Intel i7-4790k @ 4.0GHz | 2x4GB DDR3 1600MHz | EVGA GTX 1070 | Windows 10 Pro x64


