Выбор случайного файла из множества, его перемещение и переименование

@Werwolfik · Регистрация: 27.12.2017

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

Добрый день.
Помогите с решением задачи.

В папке "f:\17 4\----15.tcr" лежит множество файлов doc и rtf с разными названиями.

Как при помощи ВБС-скрипта выбрать из множества этих файлов doc-rtf один случайный - скопировать его в папку "f:\17 4" , затем переименовать его имя по новому адресу - на 1.doc (перезаписав имеющийся там 1.doc, если таковой имеется) ?

FlasherX · 08.05.2018, 16:49

1. Зачем rtf переименовывать в doc?
2. "переименовать имя по новому адресу" — масло масляное. Переименовывается объект, а не имя. Имя изменяется. Новый адрес, а точнее путь, возникает при перемещении, а не переименовании.

@Werwolfik · 08.05.2018, 19:54 **[ТС]**

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

Зачем rtf переименовывать в doc?

1.Объект нужно переименовать - на "1.doc", потому что другой код - реагирует только на файл с названием "1.doc"

2.Путь и так поменяется при перемещении копии. Речь идет о переименования файла после перемещения.

FlasherX · 08.05.2018, 20:40

Visual Basic

Set Fold = CreateObject("Shell.Application").NameSpace("f:\17 4\----15.tcr")
Set Items = Fold.Items: Items.Filter 8256, "*.doc;*.rtf"
Randomize : Num = Items.Count : If Num = 0 Then WSH.Quit
FPath = Items.Item(CLng(Round(Rnd * (Num - 1), 0))).Path
With CreateObject("Scripting.FileSystemObject")
  .CopyFile FPath, Fold.ParentFolder.Self.Path & "\1.doc", True
  .DeleteFile FPath, True
End With

Не лучше этот "другой код" исправить, чтобы реагировал и на 1.rtf?

@Werwolfik · 08.05.2018, 20:46 **[ТС]**

FlasherX, все работет идеально.
Огромное спасибо за помощь.

FlasherX 6228 / 2670 / 1051 Регистрация: 06.06.2017 Сообщений: 9,127
	08.05.2018, 16:49	2
	1. Зачем rtf переименовывать в doc? 2. "переименовать имя по новому адресу" — масло масляное. Переименовывается объект, а не имя. Имя изменяется. Новый адрес, а точнее путь, возникает при перемещении, а не переименовании. 0

@Werwolfik 0 / 0 / 0 Регистрация: 27.12.2017 Сообщений: 40
	08.05.2018, 19:54 [ТС]	3
	Сообщение от FlasherX Зачем rtf переименовывать в doc? 1.Объект нужно переименовать - на "1.doc", потому что другой код - реагирует только на файл с названием "1.doc" 2.Путь и так поменяется при перемещении копии. Речь идет о переименования файла после перемещения. 0

@Werwolfik 0 / 0 / 0 Регистрация: 27.12.2017 Сообщений: 40
	08.05.2018, 20:46 [ТС]	5
	FlasherX, все работет идеально. Огромное спасибо за помощь. 0

Выбор случайного файла из множества, его перемещение и переименование

Решение