根据用户的输入在文件夹中搜索文件，将该文件复制到新文件夹

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