VBA Макросы: Копирование каталогов (папок).

[Game]

Каким образом можно произвести копирование каталогов (папок)?

[Администратор]

Подключите библиотеку: Tools - References... - Microsoft Scripting Runtime.

В маке этот макрос не будет работать, т.к. в маке нет библиотеки "Microsoft Scripting Runtime".
Для мака нужно писать другой код.

Макрос

Sub макрос()

    Dim fso As Scripting.FileSystemObject
    Dim FN_src As String, path_res As String
   
   
    ' Создаём объект 'FileSystemObject', который умеет работать с папками и файлами, и присваиваем
        ' ему имя 'fso'. Далее в коде будем обращаться к объекту 'FileSystemObject' по имени 'fso'.
    Set fso = New Scripting.FileSystemObject
   
    ' Записываем в переменные полные имена папок.
        ' После полного имени целевой папки нужно указать слеш.
    FN_src = "C:\Users\User\Desktop\папка"
    path_res = "C:\Users\User\Desktop\Сюда скопировать\"
   
    ' Копирование папки 'папка' в папку 'Сюда скопировать'.
        ' Третий параметр задаёт: нужно удалить имеющуюся папку или нет.
        ' False - не нужно удалить. В этом случае произойдёт run-ошибка, если в целевой папке
        ' есть папка с таким именем.
    fso.CopyFolder FN_src, path_res, False

End Sub

[свернуть]

[Game]

Спасибо.