Скрипт для переименования файлов расширения .doc

@SyxaRuk · Регистрация: 14.11.2013

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста как написать скрипт:

Переименовать все файлы с расширением .doc, присвоив им имена: 1.doc, 2.doc, 3.doc и так далее до последнего файла в каталоге
d:\user\document\word

Я чайник в этом деле, не понимаю как это сделать, на лекциях препод дал какой-то минимум, но я не понимаю как это делать. Я так понимаю надо создать массив всех файлов с данным разрешением, а потом как-то организовать цикл перебора каждого. Не могу понять.

@Eva Rosalene · 08.12.2013, 15:14

Visual Basic
1
2
3
4
5
6
FolderName = "D:\Users\Document\Word"
i = 1
for each SubFile in CreateObject("Scripting.FileSystemObject").GetFolder(FolderName).Files
 if UCase(Mid(SubFile.Name, 1, InStrRev(SubFile.Name, "."))) = ".DOC" Then SubFile.Move(FolderName & "\" & i & ".doc")
 i = i + 1
next

Проверяйте.

@SyxaRuk · 08.12.2013, 16:08 **[ТС]**

Не по теме:

FraidZZ, скажите пожалуйста, если я щас попробую написать полный код программы, вы сможете подсказать, если что не так будет? И объяснить некоторые строки из вашего кода. А то я вообще почти не понимаю.

Добавлено через 2 минуты
Скажите пожалуйста, я на правильном пути или нет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
var FSO, FolderName, i = 1;
 
FSO=WScript.CreateObject("Scripting.FileSystemObject");
FolderName = "D:\Users\Document\Word";
 
for each SubFile in FSO.GetFolder(FolderName).Files
{
 if UCase(Mid(SubFile.Name, 1, InStrRev(SubFile.Name, "."))) = ".DOC" Then SubFile.Move(FolderName & "\" & i & ".doc")
 i = i + 1;
Files.moveNext();
}

Dragokas · 08.12.2013, 19:36

Сообщение от FraidZZ

Visual Basic
1
if UCase(Mid(SubFile.Name, 1, InStrRev(SubFile.Name, "."))) = ".DOC" then

можно так:

Visual Basic
1
if StrComp(right(SubFile.Name, 4), ".doc", vbtextcomapre) <> 0 then

SyxaRuk, В JS вроде нужно через Enumerator.

@SyxaRuk · 08.12.2013, 21:02 **[ТС]**

Сообщение от Dragokas

можно так:

Visual Basic
1
if StrComp(right(SubFile.Name, 4), ".doc", vbtextcomapre) <> 0 then

SyxaRuk, В JS вроде нужно через Enumerator.

А не подскажите как? Я просто реально ничего не понимаю

Dragokas · 08.12.2013, 23:00

Гм., так я тоже JS не знаю. Все по справочнику.

JavaScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var sSearchExt, sPath, FSO, num;
 
sPath = 'd:\\user\\document\\word';
sSearchExt = '.doc';
 
FSO = WScript.CreateObject("Scripting.FileSystemObject");
oSearchPath = FSO.GetFolder(sPath);
GetFiles(oSearchPath, sSearchExt, 1);
WScript.Echo ('Готово.');
 
function GetFiles (oSearchPath, sSearchExt, num)
{
    var oFolder, sFilename;
//цикл по всем файлам в каталоге
    for (var oFile = new Enumerator(oSearchPath.Files); !oFile.atEnd(); oFile.moveNext()) {
        sFilename = oFile.item().Path;
        ext = sFilename.substr(sFilename.length - 4, 4)
        if (ext.toUpperCase() == sSearchExt.toUpperCase())
        {
            oFile.item().Move (oFile.item().ParentFolder + '\\' + num + sSearchExt);
            num += 1;
        }
    }
//цикл по всем подкаталогам
    for (var oFolder = new Enumerator(oSearchPath.SubFolders); !oFolder.atEnd(); oFolder.moveNext()) {
        GetFiles(oFolder.item(), sSearchExt, num);
    }
}

@SyxaRuk · 08.12.2013, 23:06 **[ТС]**

Не по теме:

Dragokas, Спасибо вам огромное. А не кините ссылку на справочник, а то я несколько открыл, что-то понятно в одном, что-то - в другом, может в вашем понятнее будет.

Dragokas · 08.12.2013, 23:18

Я просто искал нужное по ключевым словам в гугле.
И отдельно смотрел справочник по методам и свойствам FileSystemObject.

Описание JScript

JScript является скриптовым языком программирования, разработанным компанией Microsoft. Хотя данный язык напоминает JavaScript, он имеет отличия, иногда очень заметные. Хотя при этом оба являются реализациями стандарта языка ECMA-262.

JScript может использоваться для создания приложений, запускаемых локально, то есть с диска пользователя. При этом не требуется установки дополнительного программного обеспечения. Просто создайте текстовой файл с расширением .JS (напомню, для VBScript расширение файла - .VBS)

JS точно также, как VBScript имеет доступ к COM-объектам Windows Scripting Host (WSH). См. в посте выше.

JS также может быть использован в роле скриптовых вставок в HTML-код страницы для браузера IE (с множеством ограничений, например, блокировкой доступа к файловой системе и.т.д...).
При этом такая страница не будет корректно работать в других браузерах, в чем и есть его главное отличие от JavaScript.

О различиях во встроенном функционале языка нам расскажут лекции ниже.

Лекции

Станек Р. VBScript 2.0 и JavaScript 1.2 (в конце сравнительная таблица возможностей языков)
Лукач Ю., Баклановский М. Сравнение возможностей VBScript и JScript

Справочники:

ru-jscript.com Русскоязычное он-лайн руководство, команды и примеры JScript
spravkaweb.ru Справочник по JScript, VBScript, HTML, PHP, MySQL
http://javascript.ru/manual
http://www.w3schools.com/jsref/default.asp

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .

@SyxaRuk 0 / 0 / 1 Регистрация: 14.11.2013 Сообщений: 51

	Скрипт для переименования файлов расширения .doc 08.12.2013, 12:34. Показов 9636. Ответов 7 Метки нет (Все метки) Подскажите пожалуйста как написать скрипт: Переименовать все файлы с расширением .doc, присвоив им имена: 1.doc, 2.doc, 3.doc и так далее до последнего файла в каталоге d:\user\document\word Я чайник в этом деле, не понимаю как это сделать, на лекциях препод дал какой-то минимум, но я не понимаю как это делать. Я так понимаю надо создать массив всех файлов с данным разрешением, а потом как-то организовать цикл перебора каждого. Не могу понять. 0

@SyxaRuk
	08.12.2013, 23:06 [ТС]
	Не по теме: Dragokas, Спасибо вам огромное. А не кините ссылку на справочник, а то я несколько открыл, что-то понятно в одном, что-то - в другом, может в вашем понятнее будет. 0