Question

DropIt项目软件：

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

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

如果可以使用VBA执行此任务，那也没关系。

祝你好运， Hendre

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

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

1 个答案: