Untuk mengambil data pada ini file cara nya sbg berikut:
buat module yang berisi fungsi di bawah ini
'ini buat ngambil isi file ini
Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As Any, ByVal lpDefault _
As String, ByVal lpReturnString As String, ByVal _
nSize As Long, ByVal lpFileName As String) As Long
' ini bwat nulis file ini
Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName _
As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long
trus bwat ngambil nya pake ini
Public Function sGetINI(ByVal sSection As String, ByVal sKey As String,
Optional sDefault As String) As String
On Error GoTo HELL
Dim sTemp As String * 256
Dim nLength As Long
sTemp = Space$(256)
nLength = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, 255,
app.path+"\Test.ini")
sGetINI = Left$(sTemp, nLength)
HELL:
If Err.Number <> 0 Then
MsgBox "Error! " & Err.Description & " [ " & CStr(Err.Number) & "] "
End If
End Function
contoh file ini nya kayak gini
[Connection]
Server=10.17.33.61
User=sa
Pwd=
DBName=excel
TableDest=brg
manggil nya kayak gini
dim server as String
server = sGetINI("Connection", "Server")
jawaban yang pertama pake SaveSetting dan GetSetting unutk ambil nilai dari
regedit
________________________________________________________
Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi
Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
[Non-text portions of this message have been removed]
