«Класс, написанный в сочетании с операциями FSO»
Это все еще улучшается, и основные функции уже действуют.
Его также можно использовать в качестве учебника для начинающих
Программный код
<%
'***********************************
«Метод вызова: 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), чтобы получить имя файла
'Путь должен быть файлом, может быть полный путь или отдельное имя файла
'------ getExtensionName (path) принимает суффикс имени файла, не содержит ".".
'Путь должен быть файлом, может быть полный путь или отдельное имя файла
'------ IS Fileis (PATH) PATH A FILE
'Если да, верните True, в противном случае вернуть ложь
'------ Fothercreat (Path)
'------ FOLDERDELETE (PATH, FILEIF)
'----- filecopy (path_from, path_to, coverif)
'----- filemove (path_from, path_to, coverif)
'----- Filledelete (Path)
'----- FilerEname (OldName, NewName, Coverif)
ClassfsoControl
Dimfso
Privatefile_path, file_allowtype, file_newfolder_path, file_newname, file_coverif, file_deleteif
Publicpropertyletfilepath (strype)
File_path = strtype
EndProperty
Publicpropertyletleallowtype (strype)
File_allowtype = strtype
EndProperty
Publicpropertyletfilenewdir (Strype)
File_newfolder_path = strtype
EndProperty
PublicpropertyletfilenewName (Strype)
File_newname = strtype
EndProperty
Publicpropertyletcoverpr (lngsize)
Ifisnumeric (lngsize) тогда
File_coverif = clng (lngsize)
Эндиф
EndProperty
Publicpropertyletdeletepr (lngsize)
Ifisnumeric (lngsize) тогда
File_deleteif = clng (lngsize)
Эндиф
EndProperty
Privatesubclass_initialize ()
Setfso = createObject ("scripting.filesystemobject")