Поиск файла в папке на основе ввода от пользователя, скопируйте этот файл в новую папку

Question

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

1. Пользователь вводит данные.
2. Код должен искать изображения в папке на основе ввода.
3. Если найдено, изображения перемещаются в новую папку / другую папку.

Как мне это сделать?

Answer 1

Это пример того, как это сделать.Я не знаю, каков ваш «пользовательский ввод», поэтому я просто сделал предположение.Исправьте по мере необходимости.

Sub CopySomeFiles()
    Dim FSO, sourceFolder, currentFile, filesInSourceFolder
    Dim strSourceFolderPath As String
    Dim strDestinationFolderPath As String
    Dim strUserInput As String
    Set FSO = CreateObject("Scripting.FileSystemObject")

    ' Figure out which file to copy from where to where
    strUserInput = InputBox("Please enter name of file to copy.")
    strSourceFolderPath = "C:\MySourceFolder"
    strDestinationFolderPath = "C:\MyDestinationFolder"

    Set sourceFolder = FSO.GetFolder(strSourceFolderPath)
    Set filesInSourceFolder = sourceFolder.Files

    ' Look at all files in source folder. If name matches,
    ' copy to destination folder.
    For Each currentFile In filesInSourceFolder
        If currentFile.Name = strUserInput Then
            currentFile.Copy (FSO.BuildPath(strDestinationFolderPath, _
                currentFile.Name))
        End If
    Next

End Sub