vba - DropIt Project - 根据文件夹中的文件数量移动文件夹

Question

DropIt 项目软件：

我想知道是否可以根据文件夹包含的文件数量复制（或移动）文件夹？例如，我有：文件夹 1（2 个文件）、文件夹 2（5 个文件）、文件夹 3（1 个文件）。文件 1 和 2 需要移动到另一个位置，因为它们包含多个文件。文件 3 需要保留在原处，因为它只包含 1 个文件。

是否可以定义规则或正则表达式来帮助解决这个问题？

如果可以使用 VBA 完成此任务，那也很好。

最好的问候，亨德

Answer 1

想法：

Sub Test()
    Call MoveFolder("C:\Test1", "C:\Test2", 1)
End Sub

Sub MoveFolder(strSource$, strTarget$, iCount%)
    Dim fso As FileSystemObject
    Dim fld As Folder
    Set fso = New FileSystemObject
    Set fld = fso.GetFolder(strSource)
    If fld.Files.Count > iCount Then
        fld.Copy strTarget
        fld.Delete Force:=True
    End If
End Sub