DropIt Project - перемещение папок в зависимости от количества файлов в папке

Question

Программное обеспечение DropIt Project:

Я хотел бы знать, возможно ли копировать (или перемещать) папки в зависимости от количества файлов, которые они содержат? Например. У меня есть: папка 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