Копирование файлов из разных мест назначения в 1 папку и переименование с датой
Всем добрый день.
Сказать, что я зеленый w/ VBS-это преуменьшение, но после многих примеров на этом сайте я смог собрать базовый скрипт, который будет:
перейдите на сервер A / каталог / папка
скопируйте файл X на сервер B / directory / folder
и переименуйте его с оригинальным именем, но добавьте к нему текущую дату.
Мне было интересно, можно ли это сделать.:
измените сценарий для перехода к серверам / папкам
извлечение файлов (с разными именами)
скопируйте их на определенный сервер / каталог / папку
переименуйте их с их первоначальным именем, но добавьте к нему текущую дату.
Или было бы меньше головной боли просто создать отдельный скрипт для каждого источника / файла ?
Ниже приведен пример моего очень простого скрипта копирования / переименования (F:\ = текущий локальный диск для тестирования)
Что я уже пробовал:
Dim file1, file2
file1 = "\\server A\d$\FOLDER\FILE.BAK"
файл2 = "F:\Test\FILE" &амп; год(дата) &ампер; справа("0" &амп; месяц(дата),2) &ампер; справа("0" &амп; день(дата),2) &ампер; ".Бак"
Set fso = CreateObject("Scripting.Filesystemobject, с")
Если ФСО.FileExists(file1) = true тогда
Если ФСО.FileExists(file2) = true тогда
АОЛС.Это(файл2)
Конец, если
ФСО.Команду copyfile файл1, файл2
-иначе
файл " msgbox "не существует"
Конец, Если
Установить FSO = ничего