دعنا نقدم وظيفة تشغيل ملف FSO في ASP.
سمة كائن ملف FSO (ملف)
Datecreated إرجاع تاريخ الإنشاء ووقت المجلد
DatelaastAccated إرجاع تاريخ ووقت الزيارة الأخيرة إلى الملف
يقوم DatelaastModify بإرجاع تاريخ ووقت التعديل الأخير للملف
يقوم محرك الأقراص بإرجاع كائن محرك الأقراص حيث يوجد الملف
إعدادات الاسم أو أسماء الملفات
يقوم Parentfolder بإرجاع كائن المجلد الخاص بالمجلد الأصل للملف
يقوم المسار بإرجاع المسار المطلق للملف ، يمكنك استخدام اسم الملف الطويل
يقوم ShortName بإرجاع نموذج DOS -Style 8.3 من اسم الملف
يعيد Ponstpath dos -style 8.3 شكل من المسار المطلق
يعيد الحجم حجم الملف (بايت)
إذا كان النوع قد يجوز ، إرجاع سلسلة تعليمات نوع الملف
طريقة كائن ملف FSO (ملف)
استخدام طريقة كائن ملف FSO
نسخ CopyFile واحد أو أكثر من الملفات إلى المسار الجديد
يقوم CreateTextFile بإنشاء ملف ويعيد كائن TextStream
حذف ملف حذف ملف
OpentExtFile يفتح الملف ويُرجع كائن TextStream للقراءة أو الإضافة
ملف اسم رينا:
الرمز كما يلي:
إعادة تسمية الوظيفة (Sourcename ، DestName)
باهتة أوفو ، فتيل
Set Offso = server.createObject (scripting.filesystemObject)
set ofile = offso.getfile (server.mappath (source)))
forile.name = destname
حدد Offso = لا شيء
مجموعة من = لا شيء
وظيفة نهاية
حذف الملفات:
الرمز كما يلي:
وظيفة fsodel (اسم الملف)
قاتمة FSO ، و
set fso = server.createObject (scripting.filesystemObject)
f = server.mappath (اسم الملف)
إذا fso.filexist (و) ثم
fso.deletefile f ، صحيح
إنهاء إذا
تعيين f = لا شيء
تعيين fso = لا شيء
وظيفة نهاية
تغيير السلسلة في الملف:
الرمز كما يلي:
وظيفة fsoreplace (اسم الملف ، الهدف ، repstring)
Dim Objfso ، objcountfile ، fileTempdata
تعيين objfso = server.createBject (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.writ fileTempdata
objcountfile.close
اضبط ObjCountFile = لا شيء
تعيين OBJFSO = لا شيء
وظيفة نهاية
<٪
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: CreateFolder (SPAD)
"الوظيفة: إنشاء دليل
المعلمات: Spath: تم إنشاء مسار الدليل النسبي
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
'Response.write createfolder (/dgsunshine/uploadfile/demo1/)
CreateFolder (SPI)
عند استئناف الخطأ التالي
Dim FSO ، Arrfolder ، مجلد ، أنا ، ي.
إذا كان الفضاء = إذن
CreateFolder = false
وظيفة الخروج
إنهاء إذا
إذا ترك (Spath ، 1) = / ثم
المجلد = /
Spath = Mid (Spath ، 2 ، Len (Spath)))
آخر
المجلد = ./
إنهاء إذا
إذا كان اليمين (Spath ، 1) = / ثم spath = يسار (spad ، len (spad) -1)
arrfolder = انقسام (spath ،/)
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (arrfolder)
إذا كنت = 0 ثم
المجلد = المجلد و arrfolder (i) و /
آخر
المجلد = المجلد و arrfolder (i) و /
إنهاء إذا
إذا fso.foldrexists (server.mappath (مجلد)) = خطأ ثم
استجابة. write server.mappath (مجلد)
fso.createfolder (server.mappath (مجلد))
إنهاء إذا
التالي
تعيين fso = لا شيء
إذا err.number <> 0 ثم
err.clear ()
CreateFolder = false
آخر
CreateFolder = True
إنهاء إذا
وظيفة نهاية
وظيفة getFile (paramFilePath)
set fso = server.createObject (scripting.filesystemObject)
set fso_read = fso.opentextFile (server.mappath (paramfilepath) ، 1 ، false ، -2)
getFile = fso_read.readall
تعيين fso_read = لا شيء
تعيين fso = لا شيء
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
'اسم الوظيفة: CreateFile (paramfileContent ، paramfilepath)
"الوظيفة: إنشاء ملف
محتوى ملف "المعلمة: paramfileContent"
اسم ملف "paramfilepath" (باستثناء المسار)
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
دالة createFile (paramfileContent ، paramfilepath)
عند استئناف الخطأ التالي
قاتمة FSO ، والكتاب
set fso = server.createObject (scripting.filesystemObject)
تعيين fwrite = fso.createTextFile (server.mappath (paramfilepath) ، true)
fwrite.write paramfileContent
fwrite.close ()
تعيين fwrite = لا شيء
تعيين fso = لا شيء
إذا err.number <> 0 ثم
err.clear ()
createFile = false
آخر
CreateFile = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: Delfile (FilePath)
الوظيفة: حذف الملفات
"المعلمة: FilePath" مسار ملفات متعددة لملفات متعددة |
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
وظيفة delfile (FilePath)
عند استئناف الخطأ التالي
قاتمة fso ، arrfile ، أنا
إذا getsafestr (filepath ،) = إذن
CreateFolder = false
وظيفة الخروج
إنهاء إذا
arrfile = split (filepath ، | |)
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (arrfile)
filepath = arrfile (i)
إذا fso.filexist (server.mappath (filepath) ثم) ثم)
fso.deletefile server.mappath (FilePath)
إنهاء إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
err.clear ()
delfile = خطأ
آخر
delfile = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: Delfolder (FolderPath)
"الوظيفة: حذف الدليل
"المعلمة: FolderPath" مسارات الدليل "القضاء على الانفصال |
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
وظيفة delfolder (FolderPath)
عند استئناف الخطأ التالي
Dim FSO ، arrfolder ، أنا
إذا getsafestr (FolderPath ،) = إذن
delfolder = خطأ
وظيفة الخروج
إنهاء إذا
arrfolder = split (FolderPath ، |)
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (arrfolder)
المجلد = arrfolder (i)
إذا fso.foldrexists (server.mappath (FolderPath) ثم)
fso.deletefolder server.mappath (FolderPath)
إنهاء إذا
التالي
إذا أخطأ بعد ذلك
err.clear ()
delfolder = خطأ
'دش حذف فشل الدليل ،
آخر
delfolder = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: isexistfile (FilePath)
الوظيفة: تحديد ما إذا كان الملف أو الدليل موجودًا
"المعلمة: FilePath" مسار ملفات متعددة لملفات متعددة |
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
وظيفة isexistfile (FilePath)
عند استئناف الخطأ التالي
قاتمة fso ، arrfile ، أنا
إذا getsafestr (filepath ،) = إذن
isexistfile = false
إنهاء إذا
arrfile = split (filepath ، | |)
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (arrfile)
filepath = arrfile (i)
إذا fso.filexist (server.mappath (filepath) ثم) ثم)
isexistfile = صحيح
إنهاء إذا
إذا fso.foldrexist (server.mappath (filepath)) ثم
isexistfile = صحيح
إنهاء إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
err.clear ()
isexistfile = false
"دش الحكم على ما إذا كان الملف أو الدليل فشل ،
آخر
isexistfile = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: Delfile (FilePath)
الوظيفة: حذف الملفات أو الدليل
"المعلمة: FilePath" مسار ملفات متعددة لملفات متعددة |
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
وظيفة delfile (FilePath)
عند استئناف الخطأ التالي
قاتمة fso ، arrfile ، أنا
إذا getsafestr (filepath ،) = إذن
CreateFolder = false
إنهاء إذا
arrfile = split (filepath ، | |)
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (arrfile)
filepath = arrfile (i)
إذا fso.filexist (server.mappath (filepath) ثم) ثم)
fso.deletefile server.mappath (FilePath)
إنهاء إذا
إذا fso.foldrexist (server.mappath (filepath)) ثم
fso.deletefolder server.mappath (FilePath)
إنهاء إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
err.clear ()
delfile = خطأ
فشل حذف ملف أو دليل حذف ،
آخر
delfile = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: RenameFile (Oldname ، NewName)
"الوظيفة: إعادة تسمية الملف أو الدليل
"المعلمة: stroldname" اسم الملف الأصلي multi -use |
"strnewname" اسم ملف جديد متعدد الفائدة |
"يرجى الحفاظ على نفس المعلمتين متسقة
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
وظيفة إعادة الاسم (stroldname ، strnewname)
عند استئناف الخطأ التالي
Dim FSO ، ARROLD ، ARRNEW ، I ، Oldname ، NewName
Old = getSafestr (StroldName ،)
newFile = getsafestr (strnewname ،)
إذا كان قديمًا = أو حديثًا = إذن
RENAMEFILE = false
وظيفة الخروج
إنهاء إذا
arold = انقسام (stroldName ، |)
arrnew = انقسام (strnewname ، |)
إذا كان Ubound (arrold) <> ubound (arrnew) ثم
RENAMEFILE = false
وظيفة الخروج
إنهاء إذا
set fso = server.createObject (scripting.filesystemObject)
لأني = 0 إلى Ubound (السهم)
oldname = server.mappath (arrold (i))
newName = server.mappath (arrnew (i))
إذا fso.filexist (Oldname) وليس fso.filexists (newName) ثم
fso.movefile Oldname ، NewName
'RetameFile = true
إنهاء إذا
التالي
تعيين fso = لا شيء
إذا err.number <> 0 ثم
err.clear ()
RENAMEFILE = false
آخر
RENAMEFILE = صحيح
إنهاء إذا
وظيفة نهاية
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
اسم الوظيفة: Capitfiles (TempSource ، Tempend)
الملف: نسخ الملف أو الدليل
"المعلمة: TempSource" اسم الملف متعدد الأغراض |
اسم ملف "Tempend" متعدد الأغراض |
ملاحظة: يرجى الاحتفاظ بالمعلمتين نفسهان أعلاه ، وكلاهما هو المسار الكامل ،
تمت معالجة طريقة server.mappath
قيمة الإرجاع: النجاح صحيح ، فشل خطأ
'************************************************* ****************************************************** ****************************************************** ****************************************************** ****************************************************** ************** ، ******
Calpifiles الوظيفة (TempSource ، Tempend)
عند استئناف الخطأ التالي
قاتمة copyfso ، Arrsource ، وصول
Calpfiles = false
set copyfso = server.createObject (scripting.filesystemObject)
إذا tempsource = أو tempend = ثم
ملف أو دليل نسخ Errraise ، الشرط فارغ
Calpfiles = false
وظيفة الخروج
إنهاء إذا
Arrsource = تقسيم (TempSource ، |)
إلقاء = انقسام (tempend ، |)
إذا كان Ubound (ArrSource) <> ubound (Arbit) ثم
Calpfiles = false
وظيفة الخروج
إنهاء إذا
لأني = 0 إلى Ubound (Arrsource)
srcname = arrsource (i)
tarname = إلقاء (i)
إذا كان copyfso.filexists (srcname) وليس copyfso.filexist (tarname) ثم
copyfso.copyfile srcname ، tarname
Calpfiles = True
إنهاء إذا
إذا كان copyfso.foldrexist (srcname) وليس copyfso.foldrexist (tarname) ثم
copyfso.copyfolder srcname ، tarname
Calpfiles = True
إنهاء إذا
التالي
تعيين copyfso = لا شيء
إذا أخطأ بعد ذلك
'err.clear ()
Calpfiles = false
إنهاء إذا
وظيفة نهاية
٪>