Перевод скрипта смены названий файлов - из 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, спасибо. Заработало.

Новые блоги и статьи Все статьи Все блоги /
Оказывается, Unreal Engine позволяет качество на порядки выше, чем было в Lineedge Etyuhibosecyu 05.07.2026 Жаль, конечно, что я не узнал об этом, пока Lineedge существовала, а то бы Noname2331 написал, что волки превращаются в пиксельную кашу, а я бы его попросил скачать какую-нибудь бриллиантовую или Pro. . .	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .	Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .

@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

Решение