วันนี้เมื่อเขียนโปรแกรมฉันต้องใช้การเขียนไฟล์ข้อความซ้ำ ๆ ดังนั้นฉันจึงเขียนฟังก์ชั่นกระบวนการโดยหวังว่ามันจะเป็นประโยชน์สำหรับทุกคน
รหัส:
sub write2file (strfile, strcontent, blnappend)
'เขียนไปยังไฟล์
'ชื่อไฟล์ strfile (พา ธ ) เนื้อหาที่เขียนโดย strcontent ไม่ว่าจะต่อท้าย blnappend
เมื่อเกิดข้อผิดพลาดต่อไป
ตั้งค่า objfso = server.createObject ("scripting.filesystemobject")
ถ้า blnappend แล้ว
ตั้งค่า OBJWRITETEXT = OBJFSO.OPENTEXTFILE (strFile, 8, true)
อื่น
ตั้งค่า OBJWRITETEXT = OBJFSO.OPENTEXTFILE (strFile, 2, true)
สิ้นสุดถ้า
objwritetext.writeLine (strcontent)
ตั้งค่า OBJWRITETEXT = ไม่มีอะไร
ตั้งค่า objfso = ไม่มีอะไร
'การประมวลผลที่ทนต่อความผิดพลาด
เลือก Case Err
กรณีที่ 424 Response.write "ไม่พบเส้นทางหรือไดเรกทอรีไม่มีสิทธิ์เขียน"
'กรณีอื่น response.write err.description
กรณีอื่นตอบสนองต่อการเขียนผิดพลาด
สิ้นสุดเลือก
สิ้นสุดย่อย
วิธีการโทร:
write2file "c: /dd.ini", "dd", true
หรือ
โทร write2file ("c: /dd.ini", "dd", true)
ภาพประกอบ:
1. สร้างไฟล์โดยอัตโนมัติ
2. ไม่สามารถสร้าง catalog โดยอัตโนมัติ