参考:
http://www.foxtable.com/webhelp/topics/0225.htm,把步长值设置为10即可
dim lst = FileSys.GetFiles("E:\手机照片\2022-10-10手机照片")
For i as integer = 0 to lst.count - 1 step 10
dim dir as tring = "E:\手机照片\2022-10-10手机照片\组" & i
FileSys.CreateDirectory(dir)
for j as integer = i to i+9
FileSys.MoveFile(lst(j), dir & "\" & FileSys.GetName(lst(j)))
next
Next