Buatlah Sebuah module :
Imports System.IO
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Module modConfig
Public Function getSetting(ByVal cari As String) As String
Dim inFile As FileStream = New FileStream(Application.StartupPath + \config.ini",IO.FileMode.Open, FileAccess.Read)
Dim content As String = ""
Dim fileReader As New StreamReader(inFile)
While fileReader.Peek > -1
content = fileReader.ReadLine
If Microsoft.VisualBasic.Left(content,Microsoft.VisualBasic.Len(cari)) = cari Then
Exit While
End If
End While
content = Mid(content, Len(cari) + 3)
fileReader.Close()
Return content
End Function
End Module
Cara menggunakannya :
# Isi Notepad (Nama Config.ini)
[ config ]
Server = .
Password = sabar
# Dim Server As String = Getsetting("Server") >>> Hasil .
Dim Pwd As String = Getsetting("Password") >>>Hasil sabar
