VBA: Как создать временную папку с помощью макроса?

[sirg]

Как создать временную папку с помощью макроса?

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

Макрос создаёт и удаляет временную папку.

Макрос

Sub макрос()

    Dim FN_folder As String
   
    ' Запись в переменную полного имени (путь + имя) временной папки.
        ' Макрос будет создавать временную папку на рабочем столе.
    ' В имя папки подставляется префикс "Macro_" и текущая дата и время, чтобы имя папки было уникальным,
        ' чтобы потом удалить эту папку по этому уникальному имени.
        ' Format используется, чтобы убрать из времени двоеточия, т.к. двоеточия
        ' недопустимые символы в имени папки.
    FN_folder = Environ("USERPROFILE") & "\Desktop\Macro_" & Format(Now, "dd.mm.yyyy hh.mm.ss")
   
    ' Создание папки.
    MkDir FN_folder
   
    ' Здесь делаете нужные действия с папкой.
   
    ' Удаление папки.
    FileSystem.RmDir FN_folder

End Sub

[свернуть]

[sirg]

Спасибо огромное, макрос подошел!