在对这些文件执行特定操作之后，是否有一种方法可以逐个复制文件？

Question

我正在使用以下代码。无法使用FSO功能一一复制文件。我尝试使用f（for file），所以它一个接一个地表示每个文件，但我认为我做的不正确。没有dir函数的任何方法吗？

List<Detail> results; // not empty    
Map<String, List<Detail>> res = results
                    .stream()
                    .collect(groupingBy(Detail::getTitle));

Answer 1

您应该可以执行以下操作：

Dim f
'...
'...
For Each f in xFolder.Files

    f.Copy sDFolder & f.Name

    MsgBox "File '" & f.Name & "' Copied Successfully", _
            vbInformation, "Done!"

    'DostuffHere on each file one by one before deleting

     On Error Resume Next
     Kill sDFolder & "*.*"
     On Error GoTo 0

Next f