VBS: переименовать и переместить файлы в подпапки

Question

, имеющих некоторые проблемы, переименовав и перемещая файлы в папке в некоторые подпапки.

Файлы имеют следующие названия структуры, как водопадами = Миллс Creek.jpg или ЖИВОТНЫХ = Timber Wolfes.jpg как я могу переместить эти два файла на два (новых) подпапок имени ВОДОПАДЫ и ANIMALS путем переименования файлов в новые имена (после равных знаков), таких как Mills Creek.jpg и Timber Wolfes.jpg. Возможно, файл протокола может быть написан также.

Я очень новичок в VBS, и мне нравится иметь решение.

Большое спасибо заранее

с воскресеньем считает

Майк

Answer 1

Начните свое исследование с docs.

Использование Split() разделить имена файлов в папку и имя файла часть:

>> s = "WATERFALLS=Mills Creek.jpg" 
>> a = Split(s, "=") 
>> WScript.Echo a(0) 
>> WScript.Echo a(1) 
>> 
WATERFALLS 
Mills Creek.jpg 

Для доступа/манипулировать элементами файловой системы, использовать методы FileSystemObject. Чтобы получить список файлов в ваших исходных папках, используйте коллекцию .Files объекта папки (см. here). Ваши задачи - проверка наличия папок/файлов, создание папок, перемещение файлов - могут выполняться с использованием названных методов: .FolderExists, .FileExists, .CreateFolder и .MoveFile.