خصائص كائن ملف FSO (ملف)
يعيد Datecreated تاريخ ووقت إنشاء هذا المجلد
يقوم DatelastAccated بإرجاع تاريخ ووقت الوصول الأخير إلى الملف
يقوم DateLastModified بإرجاع التاريخ والوقت الذي تم فيه تعديل الملف آخر مرة
يقوم محرك الأقراص بإرجاع كائن محرك الأقراص في محرك الأقراص حيث يوجد الملف
تعيين اسم أو إرجاع اسم الملف
يقوم Parentfolder بإرجاع كائن المجلد الخاص بالمجلد الأصل للملف
يقوم المسار بإرجاع المسار المطلق إلى الملف ، ويمكنه استخدام اسم ملف طويل
يقوم ShortName بإرجاع اسم الملف في نموذج DOS Style 8.3
يعيد PonstPath المسار المطلق للملف في نموذج DOS 8.3
يحجم الحجم حجم (بايت) من الملف
اكتب إن أمكن ، إرجاع سلسلة وصف لنوع الملف
طريقة كائن ملف FSO (ملف)
استخدام طريقة كائن ملف FSO
نسخ CopyFile واحد أو أكثر من الملفات إلى مسار جديد
يقوم CreateTextFile بإنشاء ملف ويعيد كائن TextStream
حذف ملف حذف ملف
OpentExtFile يفتح الملف ويُرجع كائن TextStream للقراءة أو الإلحاق
إعادة تسمية الملف:
نسخة الكود كما يلي:
إعادة تسمية الوظيفة (Sourcename ، DestName)
باهتة أوفو ، فتيل
set ofso = server.createObject ("scripting.filesystemObject")
set ofile = ofso.getFile (server.mappath (sourcename))
forile.name = destname
مجموعة من = لا شيء
مجموعة من = لا شيء
وظيفة نهاية
حذف الملف:
نسخة الكود كما يلي:
وظيفة fsodel (اسم الملف)
قاتمة FSO ، و
set fso = server.createObject ("scripting.filesystemObject")
f = server.mappath (اسم الملف)
إذا fso.filexists (و) ثم
fso.deletefile f ، صحيح
إنهاء إذا
تعيين f = لا شيء
تعيين fso = لا شيء
وظيفة نهاية
استبدال السلاسل في الملف:
نسخة الكود كما يلي:
وظيفة fsoreplace (اسم الملف ، الهدف ، repstring)
Dim Objfso ، objcountfile ، fileTempdata
SET OBJFSO = server.createObject ("scripting.filesystemObject")
تعيين objCountFile = objfso.opentextFile (server.mappath (filename) ، 1 ، true)
fileTempdata = objcountfile.readall
objcountfile.close
FileTempdata = استبدال (FileTempdata ، Target ، repstring)
تعيين objCountFile = objfso.createTextFile (server.mappath (filename) ، true)
objcountfile.write fileTempdata
objcountfile.close
تعيين objcountfile = لا شيء
تعيين OBJFSO = لا شيء
وظيفة نهاية
<٪
'**************************************************************
اسم الوظيفة: CreateFolder (Spath)
"الوظيفة: إنشاء دليل
'المسار: Spath: تم إنشاء مسار الدليل النسبي
'قيمة الإرجاع: ناجحة صحيحة ، فشلت خاطئة
'**************************************************************
'Response.write createfolder ("/dgsunshine/uploadfile/demo1/")
وظيفة CreateFolder (Spath)
عند استئناف الخطأ التالي
Dim FSO ، Arrfolder ، مجلد ، أنا ، ي.
إذا spath = "" ثم
CreateFolder = false
وظيفة الخروج
إنهاء إذا
إذا ترك (Spath ، 1) = "/" ثم
المجلد = "/"
Spath = Mid (Spath ، 2 ، Len (Spath))
آخر
المجلد = "./"
إنهاء إذا
إذا كان اليمين (Spath ، 1) = "/" ثم Spath = يسار (Spath ، Len (Spath) -1)
arrfolder = split (spath ، "/")
set fso = server.createObject ("scripting.filesystemObject")