Single Post - Перемещение/копирование 250 файлов из каждой подпапки

Например:

Code:

Set Sort = CreateObject("System.Collections.Sortedlist")

For Cnt = 1 To 8

Sort.Clear : S = "" : L = ""

' Добрый человек: ——————————————————————————————————————————————————————————————————————————————————————————
Sort.Add DateDiff("s", 2958465, "24.12.2016 01:01:01") & "1.txt", "24.12.2016 01:01:01 1.txt"
Sort.Add DateDiff("s", 2958465, "24.12.2016 01:01:01") & "2.txt", "24.12.2016 01:01:01 2.txt"
Sort.Add DateDiff("s", 2958465, "22.12.2016 01:01:01") & "3.txt", "22.12.2016 01:01:01 3.txt"
Sort.Add DateDiff("s", 2958465, "23.12.2016 01:01:01") & "4.txt", "23.12.2016 01:01:01 4.txt"
Sort.Add DateDiff("s", 2958465, "24.12.2016 01:01:01") & "5.txt", "24.12.2016 01:01:01 5.txt"
Sort.Add DateDiff("s", 2958465, "22.12.2016 01:01:01") & "имя файла.txt", "22.12.2016 01:01:01 имя файла.txt"
Sort.Add DateDiff("s", 2958465, "23.12.2016 01:01:01") & "имя файла 2.txt", "23.12.2016 01:01:01 имя файла 2.txt"
Sort.Add DateDiff("s", 2958465, "24.12.2016 01:01:01") & "abc.txt", "24.12.2016 01:01:01 abc.txt"

Dlimit = Sort.Count

ULimit = Dlimit - Cnt

For i = Dlimit - 1 To ULimit Step -1
S = S & vbCr & Sort.GetByIndex(i)
Next

' Flasher: —————————————————————————————————————————————————————————————————————————————————————————————————
Sort.Clear

Sort.Add DateDiff("s", 0, "24.12.2016 01:01:01") & "1.txt", "24.12.2016 01:01:01 1.txt"
Sort.Add DateDiff("s", 0, "24.12.2016 01:01:01") & "2.txt", "24.12.2016 01:01:01 2.txt"
Sort.Add DateDiff("s", 0, "22.12.2016 01:01:01") & "3.txt", "22.12.2016 01:01:01 3.txt"
Sort.Add DateDiff("s", 0, "23.12.2016 01:01:01") & "4.txt", "23.12.2016 01:01:01 4.txt"
Sort.Add DateDiff("s", 0, "24.12.2016 01:01:01") & "5.txt", "24.12.2016 01:01:01 5.txt"
Sort.Add DateDiff("s", 0, "22.12.2016 01:01:01") & "имя файла.txt", "22.12.2016 01:01:01 имя файла.txt"
Sort.Add DateDiff("s", 0, "23.12.2016 01:01:01") & "имя файла 2.txt", "23.12.2016 01:01:01 имя файла 2.txt"
Sort.Add DateDiff("s", 0, "24.12.2016 01:01:01") & "abc.txt", "24.12.2016 01:01:01 abc.txt"

For i = 0 To Cnt - 1
L = L & vbCr & Sort.GetByIndex(i)
Next
'———————————————————————————————————————————————————————————————————————————————————————————————————————————

MsgBox """Добрый человек"" (sa):" & vbCr & S & String(3, vbCr) & "Flasher:" & vbCr & L

Next