في ASP ، تعني FSO كائن نظام الملفات ، وهو كائن نظام الملفات. نظام ملفات الكمبيوتر الذي سنعالجه ، هنا يشير إلى وجوده على خادم الويب. لذلك ، تأكد من أن لديك الأذونات الصحيحة لهذا الغرض. من الناحية المثالية ، يمكنك إعداد خادم ويب على الجهاز الخاص بك بحيث يمكنك بسهولة إجراء الاختبار. إذا تم تشغيله على نظام Windows ، جرب خادم الويب الخاص بـ Microsoft.
كائنات نموذج FSO
كائن محرك الأقراص: كائنات محرك الأقراص للوصول إلى الأقراص أو محركات الشبكة
كائن FileSystemObject: كائنات نظام الملفات للوصول إلى نظام ملفات الكمبيوتر
كائن المجلد: كائن مجلد للوصول إلى جميع خصائص المجلد
كائن TextStream: كائن دفق النص للوصول إلى محتوى الملف
يمكنك استخدام الكائنات المذكورة أعلاه لفعل أي شيء على جهاز الكمبيوتر الخاص بك ، بما في ذلك أنشطة التخريب ؛ --( لذا ، كن حذرًا مع FSO. في بيئة ويب ، يعد تخزين المعلومات أمرًا مهمًا للغاية ، مثل معلومات المستخدم ، وملفات السجل ، إلخ.
1. تشغيل الملف ، احصل على حجم الملف
الوظيفة getFilesize (filename) '// الوظيفة: الحصول على حجم الملف' // المعلمة النموذج: اسم الملف '// قيمة الإرجاع: حجم الملف بنجاح ، فشل في -1' // dim fif reportfilestatus (اسم الملف) = 1 thenset f = fso.getFile (fileName) getFilesize = f.sizeelsegetfilesize = -1
2. استخدم FSO لحذف الملف المحدد
الوظيفة deleteafile (fileSpec) '// الوظيفة: ملف حذف' // المعلمة النموذج: اسم الملف '// قيمة الإرجاع: النجاح هو 1 ، الفشل هو -1' // إذا
3. يعرض FSO جميع الملفات في الدليل المحدد
وظيفة showfilelist (probererspec) '// الوظيفة: عند وجود الدليل ، يتم عرض جميع الملفات في هذا الدليل. "// المعلمات الرسمية: اسم الدليل" // قيمة الإرجاع: بنجاح هي قائمة ملفات ، فشل في أن تكون -1 '// DIM F ، F1 ، FC ، SIF ReportFolderStatus (probererspec) = 1 thenset f = fso.getfolder (platorerspec) set fc = f.filesfor F1 in fcs = s & f1.name Selseshowfilelist = -1end دالة Ifend
4. استخدم FSO لنسخ الملف المحدد
الوظيفة copyafile (sourceFile ، DestinationFile) '// الوظيفة: لا يمكن نسخ الملف إلا عند وجود الملف المصدر ، لا يكون للملف الوجهة أي تأثير.' // معلمة النموذج: ملف المصدر ، ملف الوجهة '// قيمة الإرجاع: النجاح 1 ، الفشل هو -1' (DestinationFile) copyafile = 1elsecopyafile = -1end وظيفة Ifend
5. لا يمكن نقل الملف إلا عند عدم وجود ملف الوجهة.
"الاستجابة. write movifile (" f: /123/4561.exe "،" f: /123/4562.txt ") وظيفة movifile (sourcefile ، destinationfile) '// المعلمة النموذج: ملف المصدر ، ملف الوجهة' thenfso.movefile sourceFile ، DestinationFileorPathmoveile = 1elsemoveifile = -1end وظيفة Ifend