ما هي وظائف تشغيل الملفات شائعة الاستخدام لكائنات FileSystem؟
1. الجذر
جذر تنسيق الدالة ()
يقوم وصف الدالة بإرجاع متغير سلسلة المسار
رمز التطبيق "سلسلة عينة = c:/intels/jingcaichunfeng/"
جذر الوظيفة العامة ()
الجذر = Request.ServerVariables(Appl_Physical_Path)
وظيفة النهاية
2. عنوان URL
عنوان URL لتنسيق الوظيفة ()
يقوم وصف الوظيفة بإرجاع متغير سلسلة URL
رمز التطبيق "سلسلة نموذجية = http://www.intels.net/filesys.asp"
عنوان URL للوظيفة العامة ()
URL =http://&Request.ServerVariables(Server_Name)
&Request.ServerVariables(Script_Name)
وظيفة النهاية
3.مكدير
تنسيق الدالة مكدير (DIrName)
وصف الوظيفة إنشاء دليل وإرجاع المعلومات
رمز التطبيق الوظيفة العامة mkdir(xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FolderExists(xVar) إذن
msg =عذرًا، الدليل موجود بالفعل!
آخر
Sys.CreateFolder(xVar)
msg =تهانينا، تم إنشاء الدليل بنجاح!
نهاية إذا
تعيين سيس = لا شيء
mkdir = msg
وظيفة النهاية
4.rmdir
تنسيق الدالة rmdir(DirName)
وصف الوظيفة: حذف دليل وإرجاع المعلومات
رمز التطبيقالوظيفة العامة rmdir(xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FolderExists(xVar) إذن
سيس.حذف المجلد (xVar)
msg =تهانينا، لقد تم حذف الدليل بنجاح!
آخر
msg =عذرًا، لم يتم إنشاء الدليل بعد!
نهاية إذا
تعيين سيس = لا شيء
rmdir = msg
وظيفة النهاية
5. إدير
تنسيق الدالة isdir(DirName)
وصف الوظيفة يتحقق من وجود الدليل ويقوم بإرجاع المعلومات
كود التطبيقالوظيفة العامة isdir(xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FolderExists(xVar) إذن
الرسالة = صحيح
آخر
رسالة = خطأ
نهاية إذا
تعيين سيس = لا شيء
isdir = msg
وظيفة النهاية
6.cpdir
تنسيق الوظيفة cpdir(DirName، Destination، OverWrite)
وصف الوظيفة: نسخ المجلدات وإرجاع المعلومات
كود التطبيقالوظيفة العامة cpdir(xVar, yVar, zVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FolderExists(xVar) إذن
Sys.CopyFolder xVar، root&yVar، zVar
msg =تهانينا، لقد تمت نسخة الدليل بنجاح!
آخر
msg =عذرًا، لم يتم العثور على الدليل الذي كنت تبحث عنه!
نهاية إذا
تعيين سيس = لا شيء
cpdir=msg
وظيفة النهاية
7.mvdir
تنسيق الوظيفة mvdir (DirName، Destination)
الوصف الوظيفة نقل مجلد وإرجاع المعلومات
رمز التطبيق الوظيفة العامة mvdir(xVar, yVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FolderExists(xVar) إذن
Sys.MoveFolder xVar، root&yVar
msg =تهانينا، لقد تم نقل الدليل!
آخر
msg =عذرًا، لم يتم العثور على الدليل الذي كنت تبحث عنه!
نهاية إذا
تعيين سيس = لا شيء
mvdir = msg
وظيفة النهاية
8.isfile
تنسيق الوظيفة هو ملف (اسم الملف)
وصف الوظيفة: التحقق من وجود الملف وإرجاع المعلومات
كود التطبيق الوظيفة العامة isfile(xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
الرسالة = صحيح
آخر
رسالة = خطأ
نهاية إذا
تعيين سيس = لا شيء
ملف = msg
وظيفة النهاية
9. ملف
تنسيق الوظيفة wfile (اسم الملف، الكتابة الفوقية، السلسلة)
وصف الوظيفة يكتب سلسلة إلى ملف ويعيد المعلومات
رمز التطبيق الوظيفة العامة wfile(xVar, yVar, zVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا yVar ثم
تعيين Txt = Sys.OpenTextFile(xVar, 2)
نص.كتابة (زفار)
أرسل رسالة إغلاق
msg =تهانينا، تم إنشاء الملف وحفظه بنجاح!
آخر
إذا كان Sys.FileExists (xVar) إذن
msg =عذرًا، الملف موجود بالفعل!
نهاية إذا
تعيين سيس = لا شيء
wfile=msg
وظيفة النهاية
10. ملف rfile
تنسيق الوظيفة rfile (اسم الملف)
يقوم وصف الوظيفة بقراءة الملف وإرجاع المعلومات
كود التطبيقملف الوظيفة العامة (xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
تعيين النص = Sys.OpenTextFile(xVar, 1)
msg = Txt.ReadAll
أرسل رسالة إغلاق
آخر
msg =عذرًا، الملف غير موجود!
نهاية إذا
تعيين سيس = لا شيء
rfile=msg
وظيفة النهاية
11. ملف
ملف تنسيق الوظيفة (اسم الملف، السلسلة)
وصف الوظيفة يضيف سلسلة إلى ملف ويعيد المعلومات
رمز التطبيق ملف الوظيفة العامة (xVar، zVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
تعيين Txt = Sys.OpenTextFile(xVar, 8)
نص.كتابة (زفار)
أرسل رسالة إغلاق
msg =تهانينا، تمت إضافة الملف بنجاح وحفظه!
آخر
msg =عذرًا، الملف غير موجود!
نهاية إذا
تعيين سيس = لا شيء
ملف = رسالة
وظيفة النهاية
12.cpfile
تنسيق الوظيفة cpfile (اسم الملف، الوجهة، الكتابة الفوقية)
وصف الوظيفة: نسخ ملف وإرجاع المعلومات
رمز التطبيق cpfile للوظيفة العامة (xVar، yVar، zVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
Sys.CopyFile xVar، root&yVar، zVar
msg =تهانينا، لقد تم نسخ الملف بنجاح!
آخر
msg =عذرًا، فشل نسخ الملف!
نهاية إذا
تعيين سيس = لا شيء
cpfile = msg
وظيفة النهاية
13.mvfile
تنسيق الوظيفة mvfile (اسم الملف، الوجهة)
الوصف الوظيفة نقل ملف وإرجاع المعلومات
رمز التطبيق الوظيفة العامة mvfile(xVar, yVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
Sys.MoveFile xVar، root&yVar
msg =تهانينا، تم نقل الملف بنجاح!
آخر
msg =عذرًا، فشل نقل الملف!
نهاية إذا
تعيين سيس = لا شيء
mvfile = msg
وظيفة النهاية
14.rmfile
تنسيق الوظيفة rmfile (اسم الملف)
وصف الوظيفة: حذف ملف وإرجاع المعلومات
كود التطبيقوظيفة عامة rmfile(xVar)
تعيين Sys = Server.CreateObject(Scripting.FileSystemObject)
إذا كان Sys.FileExists (xVar) إذن
ملف الملف الحذف (xVar)
msg =تهانينا، لقد تم حذف الملف بنجاح!
آخر
msg =عذرًا، فشل حذف الملف!
نهاية إذا
تعيين سيس = لا شيء
rmfile = msg
وظيفة النهاية