Nich Gw punya function Tulis_File dan Baca_File, itu yang angka 17
maksudnya Data yg gw save itu ada diline 17. coba aja oke....
semoga berhasil...
Dari Geo'x
Public Function Tulis_File()
'-------------simpan nama default server dan DB -------------
On Error GoTo keluar
Open App.Path & "\" & "Setting.ini" For Output As 1
Write #1, "Privilege : " & Privilege
Write #1, "User Name : " & UserID
Write #1, "------------------------------------"
keluar:
Close #1
'-------------------------------------------------------------
If Err Then Err.Clear
End Function
Public Function Baca_File()
Dim sementara As String
'---------------pengisian default setting DB Server----------------
On Error GoTo keluar
Open App.Path & "\" & "Setting.ini" For Input As 2
Input #2, Privilege
Input #2, UserID
Close #2
keluar:
Privilege = Mid(Privilege, 17, Len(Privilege))
UserID = Mid(UserID, 17, Len(UserID))
If Err Then Err.Clear
End Function
On 9/12/05, arif19nop <[EMAIL PROTECTED]> wrote:
> Hallo para programmer VB,
>
> saya mau tanya bagaimana cara membuat file *.INI dan *.TXT.
>
> lalu bagaimana cara untuk READ and WRITE nya ?
>
> terima kasih atas bantuannya.
>
> Salam.
>
> arif
>
>
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
