Ralota_Rob Ответов: 1

Копирование файлов из разных мест назначения в 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 = ничего

1 Ответов

Рейтинг:
0

RickZeeland

Я думаю, что вам нужно Directoryinfoкласс.Заражен(), смотрите пример здесь: Метод DirectoryInfo.GetFiles (System.IO)[^]
Если вы хотите запустить это как скрипт без Visual Studio, вы можете использовать В PowerShell, смотрите пример здесь: .net - Powershell - IO.Directory - Поиск типов файлов во всех подкаталогах - переполнение стека[^]


Richard Deeming

Это не будет доступно в VBScript. :)

RickZeeland

Вы правы, но, возможно, он может использовать Powershell, я обновлю ответ.

Ralota_Rob

Большое вам спасибо за ваши предложения / информацию. Это очень ценится.