ينفذ asp+fso وظائف للكشف عن وجود الملفات أو المجلدات وإنشائها وحذفها.'/////////////////////////////// / /////////////////عملية FSO////////////////// //// /////
"تحقق من وجود المجلد."
وظيفة مجلد الخروج (المجلد)
المجلد=Server.Mappath(مجلد)
تعيين FSO = Server.CreateObject (Scripting.FileSystemObject)
إذا كان FSO.FolderExists(مجلد) ثم
FolderExits=صحيح
آخر
FolderExits=خطأ
نهاية إذا
وظيفة النهاية
'تحقق من وجود الملف
وظيفة FileExits (اسم الملف)
اسم الملف=Server.Mappath(اسم الملف)
تعيين FSO = Server.CreateObject (Scripting.FileSystemObject)
إذا كان FSO.FileExists(اسم الملف) ثم
FileExits=صحيح
آخر
FileExits=خطأ
نهاية إذا
وظيفة النهاية
"إنشاء مجلد."
وظيفة إنشاء مجلد(مجلد)
على خطأ استئناف المقبل
المجلد=Server.Mappath(مجلد)
تعيين FSO = Server.CreateObject(Scripting.FileSystemObject)
FSO.CreateFolder(مجلد)
إذا أخطأ> 0 ثم
واضح
CreateFolder=خطأ
آخر
CreateFolder=صحيح
نهاية إذا
وظيفة النهاية
"إنشاء ملف."
وظيفة CreateFile (اسم الملف، المحتوى)
على خطأ استئناف المقبل
اسم الملف=Server.Mappath(اسم الملف)
تعيين FSO = Server.CreateObject(Scripting.FileSystemObject)
تعيين fd=FSO.createtextfile(FileName,true)
محتوى fd.writeline
إذا أخطأ> 0 ثم
واضح
إنشاء ملف = خطأ
آخر
إنشاء ملف = صحيح
نهاية إذا
وظيفة النهاية
'حذف الملفات
وظيفة حذف الملف (اسم الملف)
على خطأ استئناف المقبل
تعيين FSO = Server.CreateObject(Scripting.FileSystemObject)
إذا كان FSO.FileExists(FileName) ثم
FSO.DeleteFile FileName، صحيح
نهاية إذا
إذا أخطأ> 0 ثم
واضح
حذف الملف=خطأ
آخر
حذف الملف = صحيح
نهاية إذا
وظيفة النهاية
"حذف المجلد."
وظيفة حذف المجلد (مجلد)
على خطأ استئناف المقبل
المجلد=server.MapPath(مجلد)
تعيين FSO = Server.CreateObject(Scripting.FileSystemObject)
إذا كان FSO.FolderExists(Folder) إذن
FSO.Deletefolder Folder، صحيح
نهاية إذا
إذا أخطأ> 0 ثم
واضح
حذف المجلد=خطأ
آخر
حذف المجلد = صحيح
نهاية إذا
وظيفة النهاية