Код |
---|
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" перед её заполнением необходимо очистить, или произвести копирование с заменой файлов.
Прошу помощи .