Thank's atas pencerahannya, akan saya coba kembangkan dulu ...
Regards,
Agung NY
----- Original Message -----
From: Arlis Kurniawan
To: [email protected]
Sent: Tuesday, May 30, 2006 9:23 AM
Subject: Re: [indoprog-vb] Membuat file output .txt
coba kembangin dari yang berikut.
' fixed width string
Private Sub Command1_Click()
Dim sString As String * 10, sString2 As String * 20
sString = "asdf"
sString2 = "qwer"
Debug.Print "|" & sString & "|"
End Sub
' output file
Private Sub Command2_Click()
Dim nfile As Integer
nfile = FreeFile
Open App.Path & "\asd.txt" For Output As #nfile
Print #nfile, "asdf"
Close #nfile
End Sub
Regards,
Arlis
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
------------------------------------------------------------------------------
YAHOO! GROUPS LINKS
a.. Visit your group "indoprog-vb" on the web.
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
------------------------------------------------------------------------------
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
