มีไฟล์การกำหนดค่าอยู่ในโปรแกรมขนาดเล็กที่ฉันเขียนเมื่อเร็ว ๆ นี้ ไฟล์นี้มีความสำคัญต่อทั้งโปรแกรม หากถูกลบหรือเขียนใหม่ โปรแกรมทั้งหมดจะไม่สามารถทำงานหรือไม่สามารถปิดได้หลังจากทำงาน ดังนั้นฉันจึงมองหาวิธีที่จะทำให้ไม่สามารถเขียนไฟล์ใหม่ด้วยตนเองได้
"ลบ" นั้นง่ายต่อการแก้ไข ค้นหาพาธของไฟล์คอนฟิกูเรชันในโปรแกรม สร้างมันขึ้นมาถ้ามันว่างเปล่า และให้ค่าเริ่มต้นบางส่วน โค้ดตัวอย่างของ VB เป็นดังนี้:
FileName = App.Path + "/CONFIG"'หากไม่มีไฟล์อยู่ ให้สร้าง fileIf Dir(FileName) = "" จากนั้นเปิด FileName For Output As #1 'หากต้องการเปิดไฟล์ sequential เราสามารถใช้คำสั่ง Open a = Encode(" 123") + vbCrLf + "10" + vbCrLf 'vbCrLf เป็นการขึ้นบรรทัดใหม่ พิมพ์ #1, a 'เขียนข้อมูลปิด #1 'ปิดไฟล์สิ้นสุดถ้าฉันไม่สามารถเขียนไฟล์การกำหนดค่าใหม่ด้วยตนเองได้ ฉันพยายามซ่อนไฟล์ในโปรแกรม โค้ดตัวอย่างของ VB เป็นดังนี้:
SetAttr FileName, vbSystem หรือ vbHidden 'ไฟล์ที่ซ่อนอยู่'
แต่ในการวิเคราะห์ขั้นสุดท้าย จะเป็นการรักษาอาการมากกว่าสาเหตุที่แท้จริง และเอกสารจะยังคงถูกเขียนใหม่ จากนั้นฉันก็คิดที่จะแก้ไขวิธีการต่อท้ายไฟล์การกำหนดค่าเพื่อไม่ให้ผู้อื่นเปิดไฟล์ด้วยตนเองได้ง่าย แต่มีวิธีเปิดอยู่เสมอ ท้ายที่สุด ฉันคิดถึงวิธีแก้ปัญหาง่ายๆ: เปิดไฟล์การกำหนดค่าในโปรแกรมก่อน จากนั้นจึงไม่สามารถเปิดด้วยตนเองได้ โค้ดตัวอย่างของ VB เป็นดังนี้:
เปิดชื่อไฟล์สำหรับไบนารีเป็น #99
เพียงจำไว้ว่าโปรแกรมจะต้องปิดไฟล์ที่เปิดอยู่ก่อนเมื่อเขียนไฟล์ใหม่ มิฉะนั้นการเขียนใหม่จะล้มเหลว โค้ดตัวอย่างของ VB เป็นดังนี้:
ปิด #99 'ปิดไฟล์
โดยสรุป วิธีง่ายๆ ในการป้องกันไม่ให้ไฟล์ถูกเขียนทับคือเปิดไฟล์ก่อนในโปรแกรม
ข้างต้นเป็นเนื้อหาทั้งหมดของบทความนี้ ฉันหวังว่าทุกคนจะชอบมัน