رمز تنفيذ فئة Fso، يمكن للأصدقاء الذين يتعلمون فئة ASP الرجوع إليه. هذا الكود قديم نسبيا انسخ رمز الكود كما يلي:
<%
'======================================================================== = =============
'= إصدار النظام: 1.0 =
'= إصدار الملف: 1.0 =
'= تاريخ إنشاء النص: 31-10-2005 =
'======================================================================== = =============
فئة Cls_IO
كائن نظام الملفات الخاص
فئة فرعية خاصة_Terminate()
إذا كان IsObject(FileSystemObject) ثم
تعيين FileSystemObject = لا شيء
نهاية إذا
نهاية الفرعية
'// إنشاء كائن FileSystemObject
الوظيفة العامة Init_Object()
على خطأ استئناف التالي
إذا لم يكن IsObject(FileSystemObject) ثم
تعيين FileSystemObject = Server.CreateObject(Scripting.FileSystemObject)
إذا Err.Number <> 0 ثم
Init_Object = خطأ
خطأ.واضح
وظيفة الخروج
آخر
Init_Object = صحيح
نهاية إذا
نهاية إذا
وظيفة النهاية
ملف حذف فرعي عام (ByVal Str)
على خطأ استئناف التالي
استدعاء FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str))
نهاية الفرعية
الوظيفة العامة IsFolder (ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
وظيفة النهاية
مجلد عرض الوظيفة العامة (ByVal Str)
خافت Obj_Folder،Obj_File
تعيين Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
قم بتعيين ShowFolder = Obj_Folder.Files
تعيين Obj_Folder = لا شيء
وظيفة النهاية
نهاية الفصل
%>