"فصل مكتوب في تركيبة مع عمليات FSO"
لا يزال يتم تحسينه والوظائف الأساسية موجودة بالفعل.
يمكن أيضًا استخدامه كبرنامج تعليمي للمبتدئين
رمز البرنامج
<٪
'************************************ cds system fso stoper class beta1 ********************
طريقة الاتصال: setObj = newfsocontrol
يجب أن تكون جميع المسارات مسارات مطلقة. يرجى استخدام طريقة server.mappath لتحويل المسار قبل تحديد المتغيرات
'------ filerun -----------------------------------
'
'المعلمات المطلوبة:
'filepath ----- مسار ملف العملية
'
المعلمات الاختيارية:
'fileallowtype ---------معالجة أنواع الملف المسموح بها ، تحديد الطريقة مثال: gif | jpg | png | txt
'FileNewdir --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'FileNewName ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Coverpr ------- ما إذا كان يجب عليك الكتابة فوق الملفات الموجودة 0 هو رقم 1 هو نعم الافتراضي هو 1
'DELETEPR ----- ما إذا كان يجب حذف الملف الأصلي 0 هو رقم 1 هو نعم الافتراضي هو 1
'---------------------------------------------------
'------- updir (path) يأخذ الدليل الأصل للمسار
يمكن أن يكون المسار ملفًا أو دليلًا
'------- getPrefixName (path) بادئة اسم الملف
يجب أن يكون المسار ملفًا ، أو يمكن أن يكون مسارًا كاملاً ، أو اسم ملف منفصل
'------ getFilename (path) للحصول على اسم الملف
يجب أن يكون المسار ملفًا ، أو يمكن أن يكون مسارًا كاملاً ، أو اسم ملف منفصل
'------ getSextensionName (path) يأخذ لاحقة اسم الملف ، لا تحتوي على ".
يجب أن يكون المسار ملفًا ، أو يمكن أن يكون مسارًا كاملاً ، أو اسم ملف منفصل
'------ هو ملف fileis (path)
"إذا كان الأمر كذلك ، فأرجع صحيحًا وإعادة كاذبة
'------ foldercreat (مسار)
'------ folderdelete (path ، fileif)
'----- FileCopy (path_from ، path_to ، coverif)
'----- FileMove (path_from ، path_to ، coverif)
'----- Filedelete (PATH)
'----- FileRename (Oldname ، NewName ، Coverif)
classfsocontrol
Dimfso
privatefile_path ، file_allowtype ، file_newfolder_path ، file_newname ، file_coverif ، file_deleteif
PublicPropertyletFilePath (Strtype)
file_path = strtype
endproperty
PublicPropertyletFileAlwType (Strtype)
file_allowtype = strtype
endproperty
publicpropertyletfilenewdir (Strtype)
file_newfolder_path = strtype
endproperty
PublicPropertyletFilenewName (Strtype)
file_newname = strtype
endproperty
publicpropertyletcoverpr (lngsize)
ifisnumeric (lngsize) ثم
file_coverif = clng (lngsize)
Endif
endproperty
publicpropertyletdelepr (lngsize)
ifisnumeric (lngsize) ثم
file_deleteif = clng (lngsize)
Endif
endproperty
privatesubclass_initialize ()
setfso = createObject ("scripting.filesystemObject")