Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум
Имя пользователя:
Пароль:
 

Название темы: [решено] Надо скопировать файлы из одной папки в другую, но только если их нет в третьей
Показать сообщение отдельно

Ветеран


Contributor


Сообщения: 2735
Благодарности: 1699

Профиль | Отправить PM | Цитировать

Код: Выделить весь код
Dir1 = "D:\Delete\Dir1"
Dir2 = "D:\Delete\Dir2"
Dir3 = "D:\Delete\Dir3"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(Dir1).Files

For Each f In Files
    If Not FSO.FileExists(Dir3 + "\" + f.Name) Then FSO.CopyFile f, Dir2 + "\" + f.Name, True
Next

MsgBox "Копирование выполнено"

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 12:36, 11-09-2011 | #3

Название темы: [решено] Надо скопировать файлы из одной папки в другую, но только если их нет в третьей