VBA Макросы. Как переместить файл из одной папки в другую?

Автор Sleepy, 14 декабря 2021, 13:08

Sleepy

С помощью какой команды можно переместить файл из одной папки в другую?

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

Удобно использовать для этого стороннюю библиотеку: Microsoft Scripting Runtime.
Этой библиотеки нет в Mac, поэтому представленный ниже код не будет работать на Mac.

Sub Макрос()
   
    Dim FSO As Object
    Dim FN_Исх As String, FN_Новый As String
   
    FN_Исх = "C:\Users\User\Desktop\Файл.txt"
    FN_Новый = "C:\Users\User\Desktop\Папка\Файл.txt"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.MoveFile FN_Исх, FN_Новый
   
End Sub