Textbox 'i TXT Olarak Kaydetme [ Visual Basic 6.0 ]

Merhaba Tekrar !

Textbox'umuzu Nasil TXT olarak Kaydederiz ? Burada.
CTRL + T Basarak Microsoft Common Dialog Ekleyin .
1 Tane Textbox.
1 Tane Buton
Kodlari yapiştir

Kod:: Private Sub Command1_Click()
CommonDialog1.CancelError = True

On Error GoTo Son
CommonDialog1.DialogTitle = "Kaydet"
CommonDialog1.Filter = "Metin Belgesi(*.txt)|*.txt"
CommonDialog1.FileName = "Csturkey.forumpro"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Append As #1
Print #1, Text1.Text

Close #1
MsgBox "Kayıt Tamamlanmıştır",VbInformation,"CsTurkey.ForumPro.OrG !"
shell "explorer http://www.csturkey.forumpro.org
Son:
End Sub

[b]

Konu: :) Cuma Ekim 05, 2012 7:48 pm

Allah razı olsun kardeşim