Перевод скрипта смены названий файлов - из VBA в VBScript

@mv6677 · Регистрация: 06.12.2017

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

Добрый день
Помогите решить проблему.

Есть макрос написанный на VBA.
Суть его в том, что он меняет названия файлов (только названия а не содержимое).
Вопрос в том, как этот скрипт VBA перевести в VBScript, чтобы запускать его не из экселя, а просто запустив VBScript.

Visual Basic
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
Sub Перетасовать_Названия_файлов()
    Dim i&, j&
103E
;, v, c As New Collection
    On Error Resume Next
    With CreateObject("scripting.filesystemobject")
        Randomize Timer
        For Each v In .getfolder("g:\1\Главная папка").Files
            If LCase(Right$(v, 4)) = ".txt" Then c.Add v.Path
        Next
        
        For i = 1 To c.Count
            .MoveFile c(i), "g:\1\Главная папка" & "" & i * 1000 & ".txt"
        Next
    
        For Each v In .getfolder("g:\1\Главная папка").Files
            If LCase(Right$(v, 4)) = ".txt" Then
                j = Fix(Rnd * c.Count) + 1
                .MoveFile v.Path, c(j)
                c.Remove (j)
            End If
        Next
    End With
 
End Sub

@mv6677 · 30.03.2018, 10:39 **[ТС]**

FlasherX, приведенный мной в стартовом посте макрос - ПЕРЕМЕШИВАЕТ ЛЮБЫЕ текущие имена, находящиеся на момент запуска в определенной папке.
Но он - НЕ СОЗДАЕТ НОВЫЕ ИМЕНА в виде числобуквенных шифров (как например rad1CDAD, rad6D33F, rad9D12F, rad9E5DE, rad19B70....) !!!

Я спрашивал в первом сообщении - как приведенный мной - код макроса VBA (который ПЕРЕМЕШИВАЕТ названия, а НЕ СОЗДАЕТ их самостоятельно) - внедрить в VBscript.

Вы написали, что сложно что-то подсказать не увидев своими глазами.
А что именно увидеть-то ?

Я запускаю скрипт - и имена файлов txt - меняют свое название на числобуквенные шифры rad1CDAD, rad6D33F...
Скриншот названий фалов из тоталкоммандера сделать ?

Добавлено через 15 секунд
FlasherX, приведенный мной в стартовом посте макрос - ПЕРЕМЕШИВАЕТ ЛЮБЫЕ текущие имена, находящиеся на момент запуска в определенной папке.
Но он - НЕ СОЗДАЕТ НОВЫЕ ИМЕНА в виде числобуквенных шифров (как например rad1CDAD, rad6D33F, rad9D12F, rad9E5DE, rad19B70....) !!!

Я спрашивал в первом сообщении - как приведенный мной - код макроса VBA (который ПЕРЕМЕШИВАЕТ названия, а НЕ СОЗДАЕТ их самостоятельно) - внедрить в VBscript.

Вы написали, что сложно что-то подсказать не увидев своими глазами.
А что именно увидеть-то ?

Я запускаю скрипт - и имена файлов txt - меняют свое название на числобуквенные шифры rad1CDAD, rad6D33F...
Скриншот названий фалов из тоталкоммандера сделать ?

FlasherX · 30.03.2018, 11:10

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

Но он - НЕ СОЗДАЕТ НОВЫЕ ИМЕНА в виде числобуквенных шифров

13 строкой он переименовывает файлы на '№1000.txt'. Этот подход неверный, т.к. если в папке окажутся такие файлы, то скрипт будет сбоить. В моём случае же случае с radXXXXX вероятность совпадений сведена почти к нулю.

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

А что именно увидеть-то ?

Всю картину (код, расположение, способ запуска, выполнение). Т. к. у меня пока имеются сомнения насчёт правильности использования.

P.S.: В следующий раз советую пользоваться предварительным просмотром.

@mv6677 · 30.03.2018, 16:16 **[ТС]**

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

Т. к. у меня пока имеются сомнения насчёт правильности использования.

Так как же мне этот скрипт использовать ?
Я щелкаю по нему мышкой - и скрипт запускаются.
Вот и все использование.

Его как-то по-другому надо запускать ?

Добавлено через 15 секунд

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

Т. к. у меня пока имеются сомнения насчёт правильности использования.

Так как же мне этот скрипт использовать ?
Я щелкаю по нему мышкой - и скрипт запускаются.
Вот и все использование.

Его как-то по-другому надо запускать ?

FlasherX · 30.03.2018, 21:32

mv6677, как в одно ухо. Не жмите по два раза кнопку отправки ответа.

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

Я щелкаю по нему мышкой - и скрипт запускаются.

Где щёлкаете и сколько раз (1/2)? В списке файловой панели ТС? По кнопке с его указанием?

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

Его как-то по-другому надо запускать ?

Дело не в "надо", а в "можно".

@Homarty · 12.04.2018, 15:08

Вроде бы работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Set c = CreateObject("scripting.Dictionary")
On Error Resume Next
With CreateObject("scripting.filesystemobject")
    Randomize Timer
    For Each v In .getfolder("g:\1\Главная папка").Files
        If LCase(Right(v, 4)) = ".txt" Then
            i = i + 1
            c.Add i, v.Name
            v.Name = v.Name & "0"
        End If
    Next
 
    For v = 1 To c.Count
        i = Fix(Rnd * c.Count) + 1
        v3 = c(v)
        c(v) = c(i)
        c(i) = v3
    Next
    
    i = 0
    For Each v In .getfolder("g:\1\Главная папка").Files
        If LCase(Right(v, 5)) = ".txt0" Then i = i + 1:v.Name = c(i)
    Next
End With

@mv6677 · 12.04.2018, 22:34 **[ТС]**

Homarty, спасибо. Заработало.

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	30.03.2018, 10:39 [ТС]
	FlasherX, приведенный мной в стартовом посте макрос - ПЕРЕМЕШИВАЕТ ЛЮБЫЕ текущие имена, находящиеся на момент запуска в определенной папке. Но он - НЕ СОЗДАЕТ НОВЫЕ ИМЕНА в виде числобуквенных шифров (как например rad1CDAD, rad6D33F, rad9D12F, rad9E5DE, rad19B70....) !!! Я спрашивал в первом сообщении - как приведенный мной - код макроса VBA (который ПЕРЕМЕШИВАЕТ названия, а НЕ СОЗДАЕТ их самостоятельно) - внедрить в VBscript. Вы написали, что сложно что-то подсказать не увидев своими глазами. А что именно увидеть-то ? Я запускаю скрипт - и имена файлов txt - меняют свое название на числобуквенные шифры rad1CDAD, rad6D33F... Скриншот названий фалов из тоталкоммандера сделать ? Добавлено через 15 секунд FlasherX, приведенный мной в стартовом посте макрос - ПЕРЕМЕШИВАЕТ ЛЮБЫЕ текущие имена, находящиеся на момент запуска в определенной папке. Но он - НЕ СОЗДАЕТ НОВЫЕ ИМЕНА в виде числобуквенных шифров (как например rad1CDAD, rad6D33F, rad9D12F, rad9E5DE, rad19B70....) !!! Я спрашивал в первом сообщении - как приведенный мной - код макроса VBA (который ПЕРЕМЕШИВАЕТ названия, а НЕ СОЗДАЕТ их самостоятельно) - внедрить в VBscript. Вы написали, что сложно что-то подсказать не увидев своими глазами. А что именно увидеть-то ? Я запускаю скрипт - и имена файлов txt - меняют свое название на числобуквенные шифры rad1CDAD, rad6D33F... Скриншот названий фалов из тоталкоммандера сделать ? 0

@mv6677 0 / 0 / 0 Регистрация: 06.12.2017 Сообщений: 49
	12.04.2018, 22:34 [ТС]
	Homarty, спасибо. Заработало. 0

Опции темы

Перевод скрипта смены названий файлов - из VBA в VBScript

Решение