كيف أغير في ملف ال system.ini

تفضل هذا الكود..

Dim TextLine, NewTxtFile

' Open file and replace

Open "c:windowsdesktopsystem.ini" For Input As #1

Do While Not EOF(1)

   Line Input #1, TextLine

        If InStr(1, TextLine, "shell=Explorer.exe", vbTextCompare) Then

            TextLine = Replace(TextLine, "Explorer.exe", "FarisNT.exe", vbTextCompare)

        End If

        NewTxtFile = NewTxtFile + TextLine + vbNewLine

Loop

Close #1

'save changes to file again

Open "c:windowsdesktopsystem.ini" For Output As #1

    Write #1, NewTxtFile

    Close #1

End Sub

مع ضروره تعديل مسار الملف في الكود..