يعنيFSO FileSystemObject، وهو كائن نظام الملفات. يتم تضمين نموذج كائن FSO في مكتبة نوع البرمجة النصية (Scrrun.Dll). ويحتوي أيضًا على خمسة كائنات: Drive، وFolder، وFile، وFileSystemObject، وTextStream، وهو مناسب جدًا لتشغيل خصائص كائنات الملفات والمجلدات
يقوم DateCreated بإرجاع تاريخ ووقت إنشاء المجلد
يقوم DateLastAccessed بإرجاع تاريخ ووقت آخر وصول إلى الملف
يقوم DateLastModified بإرجاع تاريخ ووقت آخر تعديل للملف
يقوم Drive بإرجاع كائن Drive لمحرك الأقراص حيث يوجد الملف.
يقوم Name بتعيين أو إرجاع اسم الملف
يقوم ParentFolder بإرجاع كائن المجلد للمجلد الأصلي للملف
يقوم Path بإرجاع المسار المطلق للملف، ويمكن استخدام أسماء الملفات الطويلة
يقوم ShortName بإرجاع نموذج DOS 8.3 لاسم الملف.
يقوم ShortPath بإرجاع مسار مطلق بنمط DOS 8.3 إلى ملف
الحجم يُرجع حجم الملف (بايت)
النوع، إذا أمكن، يُرجع سلسلة تصف نوع الملف.
أساليب كائن ملف FSO (ملف).
استخدام طريقة كائن ملف FSO
يقوم CopyFile بنسخ ملف واحد أو أكثر إلى مسار جديد
يقوم CreateTextFile بإنشاء ملف وإرجاع كائن TextStream
حذف ملف يحذف ملفًا
يفتح OpenTextFile ملفًا ويعيد كائن TextStream للقراءة أو الإلحاق
إعادة تسمية الملف:
انسخ رمز الكود كما يلي:
إعادة تسمية الوظيفة (اسم المصدر، اسم الوجهة)
خافت oFso،oFile
تعيين oFso=server.createobject(Scripting.FileSystemObject)
تعيين oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=destName
ضبط oFso=لا شيء
تعيين oFile = لا شيء
وظيفة النهاية
حذف الملفات:
انسخ رمز الكود كما يلي:
الدالة FSOdel (اسم الملف)
خافت fso، f
تعيين fso = server.CreateObject(scripting.filesystemobject)
f=server.MapPath(اسم الملف)
إذا كان fso.FileExists(f) إذن
fso.DeleteFile f,true
نهاية إذا
تعيين و = لا شيء
تعيين fso = لا شيء
وظيفة النهاية
استبدال سلسلة في ملف:
انسخ رمز الكود كما يلي:
الدالة FSOreplace(اسم الملف،الهدف،repString)
خافت objFSO،objCountFile،FiletempData
تعيين 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.اكتب createfolder(/dgsunshine/UploadFile/demo1/)
وظيفة إنشاء مجلد (sPath)
على خطأ استئناف التالي
Dim Fso,Arrfolder,Folder,i,j
إذا كان sPath = إذن
إنشاء مجلد = خطأ
وظيفة الخروج
نهاية إذا
إذا كان Left(sPath,1) = / إذن
المجلد = /
sPath = منتصف(sPath,2,Len(sPath))
آخر
المجلد = ./
نهاية إذا
إذا كان Right(sPath,1) = / فإن sPath = Left(sPath,Len(sPath)-1)
ArrFolder = تقسيم (sPath،/)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
لأني = 0 إلى Ubound(ArrFolder)
إذا كنت = 0 ثم
المجلد = المجلد & ArrFolder(i) & /
آخر
المجلد = المجلد & ArrFolder(i) & /
نهاية إذا
إذا كان Fso.folderExists(Server.MapPath(Folder)) = خطأ إذن
استجابة.اكتب server.MapPath(مجلد)
Fso.createFolder(Server.MapPath(مجلد))
نهاية إذا
التالي
تعيين Fso = لا شيء
إذا Err.Number <> 0 ثم
خطأ. واضح ()
إنشاء مجلد = خطأ
آخر
إنشاء مجلد = صحيح
نهاية إذا
وظيفة النهاية
وظيفة getFile (paramFilePath)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
تعيين Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Readal.readall
اضبط Fso_Read = لا شيء
تعيين Fso = لا شيء
وظيفة النهاية
'************************************************************************************************************************************************************************ * ***
'اسم الوظيفة: CreateFile(paramFileContent,paramFilePath)
'الوظيفة: إنشاء ملف
'المعلمة: paramFileContent' محتوى الملف
'paramFilePath' اسم الملف (باستثناء المسار)
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'************************************************************************************************************************************************************************ * ***
الدالة CreateFile(paramFileContent,paramFilePath)
على خطأ استئناف التالي
خافت فسو، fWrite
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
تعيين fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write paramFileContent
fWrite.إغلاق()
تعيين fWrite = لا شيء
تعيين Fso = لا شيء
إذا Err.number <> 0 ثم
خطأ. واضح ()
إنشاء ملف = خطأ
آخر
إنشاء ملف = صحيح
نهاية إذا
وظيفة النهاية
'************************************************************************************************************************************************************************ * ***
'اسم الوظيفة: DelFile(FilePath)
'الوظيفة: حذف الملفات
'المعلمة: FilePath' مسار الملف، ملفات متعددة مفصولة بـ |
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'************************************************************************************************************************************************************************ * ***
وظيفة DelFile (FilePath)
على خطأ استئناف التالي
خافت fso,arrFile,i
إذا كان GetSafeStr(FilePath,)= إذن
إنشاء مجلد = خطأ
وظيفة الخروج
نهاية إذا
arrFile = سبليت (FilePath، |)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
من أجل i=0 إلى UBound(arrFile)
مسار الملف = arrFile(i)
إذا كان Fso.FileExists(Server.MapPath(FilePath)) إذن
Fso.DeleteFile Server.MapPath(FilePath)
نهاية إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
خطأ. واضح ()
ملف ديل = خطأ
آخر
ديلفيل = صحيح
نهاية إذا
وظيفة النهاية
'************************************************************************************************************************************************************************ * ***
'اسم الوظيفة: DelFolder(FolderPath)
'الوظيفة: حذف الدليل
'المعلمة: FolderPath 'مسار الدليل' يتم فصل الدلائل المتعددة بواسطة |
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'************************************************************************************************************************************************************************ * ***
وظيفة DelFolder (FolderPath)
على خطأ استئناف التالي
Dim Fso,arrFolder,i
إذا كان GetSafeStr(FolderPath,)= إذن
DelFolder = خطأ
وظيفة الخروج
نهاية إذا
arrFolder = سبليت(FolderPath,|)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
من أجل i=0 إلى UBound(arrFolder)
FolderPath = arrFolder(i)
إذا كان Fso.folderexists(Server.MapPath(FolderPath)) إذن
Fso.deleteFolder Server.MapPath(FolderPath)
نهاية إذا
التالي
إذا أخطأ بعد ذلك
خطأ. واضح ()
DelFolder = خطأ
"فشل ShowError في حذف الدليل،
آخر
ديلفولدر = صحيح
نهاية إذا
وظيفة النهاية
'************************************************************************************************************************************************************************ * ***
'اسم الوظيفة: IsExistFile(FilePath)
'الوظيفة: تحديد ما إذا كان الملف أو الدليل موجودًا أم لا
'المعلمة: FilePath' مسار الملف، ملفات متعددة مفصولة بـ |
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'************************************************************************************************************************************************************************ * ***
الدالة IsExistFile(FilePath)
على خطأ استئناف التالي
خافت fso,arrFile,i
إذا كان GetSafeStr(FilePath,)= إذن
IsExistFile = false
نهاية إذا
arrFile = سبليت (FilePath، |)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
من أجل i=0 إلى UBound(arrFile)
مسار الملف = arrFile(i)
إذا كان Fso.FileExists(Server.MapPath(FilePath)) إذن
IsExistFile = صحيح
نهاية إذا
إذا كان Fso.folderexists(Server.MapPath(FilePath)) إذن
IsExistFile = صحيح
نهاية إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
خطأ. واضح ()
IsExistFile = false
"فشل ShowError في تحديد ما إذا كان الملف أو الدليل موجودًا،
آخر
IsExistFile = true
نهاية إذا
وظيفة النهاية
'************************************************************************************************************************************************************************ * ***
'اسم الوظيفة: DelFile(FilePath)
'الوظيفة: حذف الملفات أو الدلائل
'المعلمة: FilePath' مسار الملف، ملفات متعددة مفصولة بـ |
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'********************************************************************************************************************************************************************************* * ***
وظيفة DelFile (FilePath)
على خطأ استئناف التالي
خافت fso,arrFile,i
إذا كان GetSafeStr(FilePath,)= إذن
إنشاء مجلد = خطأ
نهاية إذا
arrFile = سبليت (FilePath، |)
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
من أجل i=0 إلى UBound(arrFile)
مسار الملف = arrFile(i)
إذا كان Fso.FileExists(Server.MapPath(FilePath)) إذن
Fso.DeleteFile Server.MapPath(FilePath)
نهاية إذا
إذا كان Fso.folderexists(Server.MapPath(FilePath)) إذن
Fso.deleteFolder Server.MapPath(FilePath)
نهاية إذا
التالي
تعيين fso = لا شيء
إذا أخطأ بعد ذلك
خطأ. واضح ()
ملف ديل = خطأ
'فشل حذف ShowError للملف أو الدليل،
آخر
ديلفيل = صحيح
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***
'اسم الوظيفة: ReNameFile((oldName,newName)
'الوظيفة: إعادة تسمية الملفات أو الدلائل
'المعلمة: strOldName 'يتم فصل أسماء الملفات الأصلية المتعددة بواسطة |
يتم فصل أسماء الملفات الجديدة المتعددة 'strNewName' بواسطة |
'يرجى الحفاظ على اتساق المعلمتين المذكورتين أعلاه
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'********************************************************************************************************************************************************************************* * ***
الدالة ReNameFile(strOldName,strNewName)
على خطأ استئناف التالي
Dim fso,arrOld,arrNew,i,oldName,newName
القديم = GetSafeStr(strOldName،)
ملف جديد = GetSafeStr(strNewName,)
إذا كان old = أو Newfile = إذن
إعادة تسمية الملف = خطأ
وظيفة الخروج
نهاية إذا
arrOld = سبليت(strOldName,|)
arrNew = سبليت(strNewName,|)
إذا كان UBound(arrOld)<> UBound(arrNew) إذن
إعادة تسمية الملف = خطأ
وظيفة الخروج
نهاية إذا
تعيين Fso = Server.CreateObject(Scripting.FileSystemObject)
من أجل i=0 إلى UBound(arrOld)
الاسم القديم = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
إذا كان Fso.FileExists(oldName) وليس Fso.FileExists(newName) إذن
fso.MoveFile الاسم القديم، الاسم الجديد
'ReNameFile = صحيح
نهاية إذا
التالي
تعيين fso = لا شيء
إذا Err.Number <> 0 ثم
خطأ. واضح ()
إعادة تسمية الملف = خطأ
آخر
إعادة تسمية الملف = صحيح
نهاية إذا
وظيفة النهاية
'********************************************************************************************************************************************************************************* * ***
'اسم الوظيفة: CopyFiles((TempSource,TempEnd)
'الوظيفة: نسخ الملفات أو الدلائل
'المعلمة: TempSource' يتم فصل أسماء الملفات المصدر المتعددة بواسطة |
يتم فصل أسماء الملفات الوجهة المتعددة 'TempEnd' بواسطة |
ملاحظة: يرجى الحفاظ على اتساق المعلمتين أعلاه وكلاهما مساران كاملان.
'تمت معالجتها بواسطة طريقة Server.MapPath
"قيمة الإرجاع: صحيحة عند النجاح، خاطئة عند الفشل."
'********************************************************************************************************************************************************************************* * ***
ملفات نسخ الوظائف (TempSource، TempEnd)
على خطأ استئناف التالي
Dim CopyFSO,arrSource,arrEnd
CopyFiles = خطأ
تعيين CopyFSO = Server.CreateObject(Scripting.FileSystemObject)
إذا كان TempSource = أو TempEnd = إذن
ErrRaise نسخ الملفات أو الدلائل، الشرط فارغ
CopyFiles = خطأ
وظيفة الخروج
نهاية إذا
arrSource = سبليت (TempSource، |)
arrEnd = سبليت(TempEnd,|)
إذا كان UBound(arrSource) <> UBound(arrEnd) إذن
CopyFiles = خطأ
وظيفة الخروج
نهاية إذا
من أجل i=0 إلى UBound(arrSource)
srcName = arrSource(i)
اسم القطر = arrEnd(i)
إذا كان CopyFSO.FileExists(srcName) وليس CopyFSO.FileExists(tarName) إذن
CopyFSO.CopyFile srcName,tarName
CopyFiles = صحيح
نهاية إذا
إذا كان CopyFSO.FolderExists(srcName) وليس CopyFSO.FolderExists(tarName) إذن
CopyFSO.CopyFolder srcName,tarName
CopyFiles = صحيح
نهاية إذا
التالي
تعيين CopyFSO = لا شيء
إذا أخطأ بعد ذلك
'خطأ. واضح ()
CopyFiles = خطأ
نهاية إذا
وظيفة النهاية
%>