Дизайнерам веб-сайтов неизбежно время от времени обрабатывать большое количество файлов, особенно изображений и некоторых текстовых файлов, которые обрабатываются часто. Из-за большого количества файлов на веб-сайте файлы одного типа часто именуются возрастающими числами по определенным правилам. Например, наши обычные файлы изображений часто называются 1001.jpg, 1002. Преимущество метода jpg заключается в том, что имена файлов не будут повторяться, и ими легко управлять. Здесь мы специально представляем простой и легкий метод пакетного переименования всех файлов в любой папке. Конечно, имена файлов после переименования увеличиваются в цифровом формате в соответствии с потребностями дизайнера веб-сайта.
Для реализации вышеперечисленных функций мы используем ASP. Следует отметить, что, поскольку проект включает в себя файловые операции и использует объект FileSystemObject, реализация этой функции должна выполняться на веб-сайте с разрешениями на файловые операции. Общее виртуальное внимание: учитывая требования безопасности, разрешения на существование файлов могут быть не предоставлены. Это первое, на что нам нужно обратить внимание, кроме того, в следующей программе мы будем работать со всеми файлами в указанной папке strFromDir; именно этот файл. Независимо от типа файла, программа переименовывает файлы в папке. Разумеется, тип файла не будет изменен. Переименованные файлы больше не будут сохраняться в исходной папке, а будут перемещены в другую. strTargetDir, обратите внимание, что мы перемещаемся сюда, а не копируем, поэтому после операции все файлы в исходной папке больше не будут существовать; программа эффективно использует различные свойства и возможности, предоставляемые объектом FileSystemObject, и существует; простота реализации Очевидно, что друзья, программирующие на других языках, теперь могут глубоко расчувствоваться, давайте посмотрим на код реализации функции:
＜% @LANGUAGE = VBSCRIPT %＞;
＜%Явный вариант%＞
<%
«Следующая программа пакетно переименовывает файлы в папке и перемещает все файлы в новую папку;
Response.Write "＜html＞" & VbCrLf & "＜head＞" & VbCrLf
Ответ. Напишите «＜title＞Пакетное переименование файла＜/title＞» и VbCrLf.
Response.Write "＜/head＞" & VbCrLf & "＜body＞" & VbCrLf
'Описание переменной
Dim gbolGoПроцедура
Dim strFromDir 'Исходная папка
Dim strTargetDir 'Целевая папка
Тусклый объект objFS
Тусклый объект objRootFolder
Тусклый объектный файл
Dim strFileNameLen
Dim strPrevFileName
Dim strFileExt 'Расширение файла
Dim strFileNameCount
Dim strNewFileName
Dim strRealCount 'Количество обработанных файлов
gbolGoProcedure = False
'Если нажата кнопка «Пуск», выполните следующую обработку
Если (Request.Form("GoButton")) = "Пуск", то
'Укажите исходную папку и целевую папку
strFromDir = "D:test"
strTargetDir = "D:test1"
' Установить количество обрабатываемых файлов равным 0
strRealCount = 0
Установить objFS = Server.CreateObject("Scripting.FileSystemObject")
Установить objRootFolder = objFS.GetFolder(strTargetDir)
'Конкретная настройка имени файла, установленная здесь на 100001, указывает, что имя файла будет изменено с 100001
«Начните, постепенно увеличивайте и можно установить по мере необходимости;
strFileNameCount = 100001
Для каждого objFile в objRootFolder.Files
'Для конкретных файлов обработка не производится и может быть настроена по мере необходимости;
Если objFile.Name = "Thumbs.db", то strFileNameCount = StrFileNameCount - 1
стрFileNameCount = strFileNameCount + 1
Следующий
набор objRootFolder = objFS.GetFolder(strFromDir)
Для каждого objFile в objRootFolder.Files
strFileNameLen = Len (objFile.Name)
Если Mid (objFile.Name,(strFileNameLen - 3),1) = "."
strFileExt = вправо (objFile.Name, 4)
Еще
strFileExt = вправо (objFile.Name, 5)
Конец, если
strPrevFileName = objFile.Name
strNewFileName = strFileNameCount & strFileExt
objFile.Move strTargetDir & strNewFileName
Response.Write "Исходный файл: " &strFromDir&strPrevFileName & " > Переместить и переименовать: " &strTargetDir& strNewFileName & "＜br＞" & vbCrLF
стрFileNameCount = strFileNameCount + 1
strRealCount = strRealCount + 1
Следующий
ответ. Напишите "＜p＞＜b＞ Всего обработано: " & (strRealCount) & " files＜/B＞" & vbCrLf
Set objRootFolder = Nothing
Установить objFS = Ничего
gbolGoProcedure = True
Конец Если
Если gbolGoProcedure Тогда
Response.Write("＜p＞＜b＞Пакетное перемещение и переименование файлов＜/b＞") & vbCrLf
Else
Response.Write("＜center＞＜br＞＜form Method=""post"" action=""FileNameConverter.asp"" ID=form1 name=""form1""＞") & vbCrLf
Response.Write("＜input type=""SUBMIT"" value="" Start"" ID=""GoButton"" name=""GoButton""＞") & vbCrLf
Response.Write("＜/form＞") & vbCrLf
Response.Write("＜p＞＜b＞Нажмите кнопку для пакетного перемещения и переименования файлов＜/b＞＜/center＞") & VbCrLf
Завершить
ответ. Напишите «＜/body＞» & VbCrLf & «＜/html＞»
%＞.