＜ % @language = vbscript % ＞
＜%вариант явного%＞
＜%
«Следующая программа переименовала имена файлов в папке и перемещает все файлы в новую папку;
Response.write "＜ html ＞" & vbcrlf & "＜ head ＞" & vbcrlf
Response.write "＜ заголовок ＞ Плачковое имя файла изменение </title ＞" & vbcrlf
Response.write "＜/head>" & vbcrlf & "＜ body>" & vbcrlf
'Переменное описание
Dim Gbolgoprocedure
Dim Stremdir'source Folder
Dim Strtargetdir'target Folder
Dim objfs
Dim objrootfolder
Dim objfile
Dim Strfilenamelen
Dim Strprevfilename
Dim Strfileext 'расширение файла
Dim Strfilenamecount
Dim Strnewfilename
Dim StrrealCount 'Количество обработанных файлов
gbolgoprocedure = false
'Если кнопка «Пуск» нажата, выполните следующую обработку
If (request.form ("gobutton")) = "start"
'Укажите исходную папку и папку назначения
strPromDir = "D: тест/"
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
strfilenamecount = strfilenamecount + 1
Следующий
Установить objrootfolder = objfs.getfolder (strpromdir)
Для каждого 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
strfilenamecount = strfilenamecount + 1
strrealcount = strrealcount + 1
Следующий
Response.write "＜ P ＞＜ B ＞ Тотальная обработка:" & (strrealcount) & "files </b>" & vbcrlf
Установить objrootfolder = ничего
Установить objfs = ничего
gbolgoprocedure = true
Конец, если
Если GbolgoProcedure, тогда
Response.write ("＜ p ＞＜ b ＞ пакетный пакетный пакетный пакет перемещение и переименование </b ＞")
Еще
Response.write ("＜ Center ＞＜br> ＜ form method =" "post" "action =" "filenameConverter.asp" "id = form1 name =" "form1" ">") & vbcrlf
Response.write ("＜ input type =" "" отправить "" value = "" start "" id = "" gobutton "" name = "" gobutton ""> ") & vbcrlf
Response.write ("＜/form>") & vbcrlf
Response.write ("＜ p ＞＜ b ＞ Нажмите кнопку, чтобы перевести и переименовать файл </b ＞＜/center ＞") и vbcrlf
Конец, если