[VB6] สร้างไฟล์ Text

[VB6] สร้างไฟล์ Text

ก่อนอื่นเลย ออกแบบหน้าจอ ตามนี้ก่อน

 รูปหน้าจอ

กำหนดค่าพร็อพเพอร์ตี้ของคอนโทรลดต่ละตัว
ออบเจ็กต์/คอนโทรล	พร็อพเพอร์ตี้	ค่าที่กำหนด
Form1	Caption	สร้าง Text File
Text	Name	Text1
	Caption	Text
Button	Name	Command1

Code

Private Sub Command1_Click()
 Open "C:\Text_file.txt" For Output As #1   'สร้าง ไฟล์ ขึ้นมาตามที่อยู่ แล้วแต่จะเปลี่ยนดูก็ได้นะ
 Print #1, Text1.Text                       'ข้อมความที่ ต้องการจะให้เขียนลงในไฟล์
 Close #1
End Sub

ผลการทดลอง

เมื่อลองกด ปุ่ม สร้างไฟล์ ไฟล์ จะถูกสร้างขี้นที่ ไดร์ C:\ ชื่อ Text_file.txt 

แล้วเปิดดูจากโปรแกรม Notepad ข้างในจะถูกเขียนว่า text1   ที่เหลือก็ลองเอาไปประยุทธ์ดูเอานะ

เพิ่มเติมนะครับ 

For Append As #1   คือการเขียนไฟล์แบบเพิ่มเติ่ม          เมื่อกดปุ่มอีกครัง ไฟล์จะถูกเขียน ต่อๆ กันไปเรื่อย ๆ ครับ

For Output As #1    คือการเขียนทับใหม่ลงไปทั้งหมด      เมื่อกดปุ่มอีกครัง ไฟล์จะถูกเขียนเขียนทับทั้งหมดครับ