Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос копирования файлов из одной папки в другую с заменой файлов
 
Код
Sub DirCopy()
    Dim OldPath$, NewPath$, Shablon$, OnlyName$
    OldPath = "C:\Users\Aswerd_nout\Desktop\1"
    NewPath = "C:\Users\Aswerd_nout\Desktop\2"
    Shablon = "*.*"
    OnlyName = Dir(OldPath & Shablon, vbReadOnly + vbHidden + vbSystem)
    Do Until OnlyName = ""
        FileCopy OldPath & OnlyName, NewPath & OnlyName
        OnlyName = Dir
    Loop
End Sub
Добрый день.Нашел в свободном доступе код для переноса файлов из одной папки в другую.При выполнении макроса VBA выдаёт ошибку " File not found". Хотел применить код... не получилось  :(.Имена файлов и их расширения в исходной папке "C:\Users\Aswerd_nout\Desktop\1"  могут меняться. В идеале,конечно,конечную папку  "C:\Users\Aswerd_nout\Desktop\2" перед её заполнением необходимо очистить, или произвести копирование  с заменой файлов.
Прошу помощи .
 
 
Михаил Крыжановский, здравия. Как я понял, Вам нужно папку 2 удалить и сделать копию папки 1. Почитайте тут.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan,спасибо за ссылку буду изчать,хотя без знаний VBA  будет сложновато  :)  А так да... нужно  удалить файлы из папки 2(или... не удалять, а произвести копирование файлов из папки1 в папку2 с их заменой при совпадении имён)  
 
Код
Sub jjj()
    s_sourse_dir = "D:\tmp\1"
    s_reserv_dir = "D:\tmp\2"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(s_sourse_dir) Then
        MsgBox "Нечего копировать."
        Exit Sub
    End If
    If FSO.FolderExists(s_reserv_dir) Then FSO.DeleteFolder s_reserv_dir, True
    FSO.CopyFolder s_sourse_dir, s_reserv_dir, True
End Sub
Меняйте пути на свои.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
JayBhagavan, Спасибо !! ...и небожители спускаются на землю :). Всё работает как часы ! Заранее извиняюсь за "простоту" следующих  тем с моей стороны.Спасибо!!  :)
 
Михаил Крыжановский, пожалуйста. Вы преувеличиваете. Рад. Не стОит - желательно задавать вопросы после того, как поиск не дал ответа или что-то в найденном не понятно (смело экспериментируйте на "кошках"). Пожалуйста.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Скажите, пожалуйста, а возможно вообще: я отсканировала названия jpg в excel, сравнила со списком другим через ВПР, и теперь нужно найденные изображения отправить в другую (можно созданную предварительно) папку. Так можно через VBA сделать и с помощью какой функции или другого? Помогите. пожалуйста((
 
Вопрос не по теме
Страницы: 1
Читают тему (гостей: 1)
Наверх