اليوم ، عند كتابة البرامج ، يجب أن أستخدم كتابة ملفات نصية بشكل متكرر ، لذلك كتبت وظيفة العملية ، على أمل أن تكون مفيدة للجميع.
شفرة:
sub write2file (strfile ، strcontent ، blnappend)
اكتب إلى الملف
'اسم ملف strfile (المسار) ، المحتوى الذي كتبه StrContent ، سواء كان لإلحاق Blnappend
عند استئناف الخطأ التالي
SET 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
Case 424 Response.write "المسار غير موجود أو لا يحتوي الدليل على إذن الكتابة."
'حالة أخرى استجابة. write err.description
حالة أخرى استجابة.
نهاية الاختيار
نهاية الفرعية
طريقة الاتصال:
write2file "c: /dd.ini" ، "dd" ، true
أو
Call Write2File ("C: /dd.ini" ، "DD" ، True)
يوضح:
1. إنشاء ملفات تلقائيًا ؛
2. لا يمكن إنشاء catalog تلقائيًا