Переместить несколько файлов в одной команде Windows

Question

У меня есть папка, содержащая различные tif-файлы. Я использую простую команду перемещения, которая выглядит как

move "Source path/File name" "Destination path/" 

Я пробовал команду, которая выглядит так:

move "Source path/File 1, File 2. File 3" "Destination Path/"

Я ищу похожую формулу, которая может мне помочь.Причина, по которой этот код важен для меня

В сценарии, в котором iam перемещает только один файл в папку назначения. В другом сценарии мне нужно выбрать 3 или более файлов в другую папку назначения.Если я делаю это с общей формулой, это занимает больше времени.

Пожалуйста, предложите это.

move "Source path/File 1, File 2. File 3" "Destination Path/"

В сценарии, когда я перемещаю только один файл в папку назначения.В другом сценарии я должен выбрать 3 или более файлов в другой папке назначения.Пример: Образец

Если я сделаю это с общей формулой, это займет больше времени.

Answer 1

Вы можете попробовать код, приведенный ниже.

Sub MoveFiles()

    Dim DestinationPath As String
    Dim SourcePath As String
    Dim FileNames As String
    Dim Sp() As String
    Dim i As Integer

    SourcePath = Environ("USERPROFILE") & "\Desktop"
    DestinationPath = "H:\TestFolder"
    FileNames = "File1.txt,File2.txt,File3.txt"

    If Right(SourcePath, 1) <> "\" Then SourcePath = SourcePath & "\"
    If Right(DestinationPath, 1) <> "\" Then DestinationPath = DestinationPath & "\"
    If Len(FileNames) Then
        Sp = Split(FileNames, ",")
        For i = 0 To UBound(Sp)
            Sp(i) = Trim(Sp(i))
            If Len(Dir(SourcePath & Sp(i))) Then
                Name SourcePath & Sp(i) As DestinationPath & Sp(i)
            End If
        Next i
    End If
End Sub

Установите пути источника и назначения в соответствии с вашей системой.Введите столько или несколько имен файлов в одной строке через запятую.Все именованные файлы будут перемещены, если они существуют в SourcePath.Если путь назначения не существует, произойдет ошибка.