主题：对图片文件分组

 一个文件夹内的1000张图片希望按照美10张进行分组，每一组建成一个新的文件夹

fox怎么做到呢

package md5;
import java.io.*;
public class Test{
    public static void main(String[] args) {
        File file = new File("E:\\手机照片\\2022-10-10手机照片");
        // 获得图片名列表
        String[] names = file.list();
        // 获得图片列表
        File[] files = file.listFiles();
        assert names != null;
        assert files != null;
        // 需要创建的文件夹数量，每个文件夹放500张图片
        int dirCount = names.length % 500 == 0 ? names.length / 500 : names.length / 500 + 1;
        BufferedInputStream bis = null;
        BufferedOutputStream bos = null;
        for(int i = 0;i < dirCount;i++) {
            File tempFile = new File("E:\\手机照片\\2022-10-10手机照片\\图片分组" + (i + 1));
            if (!tempFile.exists()) {
                tempFile.mkdirs();
            }
            FileInputStream fis = null;
            FileOutputStream fos = null;
            System.out.println("正在操作壁纸分组" + (i + 1));
            for(int j = i * 500 ; j < i * 500 + 500 && j < files.length;j++){
                System.out.println("正在操作：" + names[j]);
                try {
                    fis = new FileInputStream(files[j]);
                    fos = new FileOutputStream("E:\\手机照片\\2022-10-10手机照片\\图片分组" + (i + 1)
                            +"\\" + names[j]);
                    bis = new BufferedInputStream(fis);
                    bos = new BufferedOutputStream(fos);
                    byte[] buffer = new byte[1024];
                    int len;
                    while((len = bis.read(buffer)) != -1){
                        bos.write(buffer,0,len);
                        bos.flush();
                    }
                } catch (Exception e) {
                    e.printStackTrace();
                } finally {
                    if(bis != null){
                        try {
                            // 外层流关闭内层流自动关闭，所有不需要fis.close();
                            bis.close();
                        } catch (IOException e) {
                            e.printStackTrace();
                        }
                    }
                    if(bos != null){
                        try {
                            // 外层流关闭内层流自动关闭，所有不需要fos.close();
                            bos.close();
                        } catch (IOException e) {
                            e.printStackTrace();
                        }
                    }
                }
            }
            System.out.println("操作图片分组" + (i + 1) + "成功");
        }

    }
}

原理应该是类似这个 读取文件夹内的图片文件数量，然后按照每十个一组新建一个文件夹 文件夹按照日期命名（例如起始日期是20230101）

文件处理参考：http://www.foxtable.com/webhelp/topics/0331.htm

dim lst = FileSys.GetFiles("E:\手机照片\2022-10-10手机照片")

FileSys.MoveFile(lst(j), dir & "\" & FileSys.GetName(lst(j)))

 Dim dir As String = "E:\全案设计资料\2022年度全案\A压缩的\朋友圈分组\" & Format(#1/1/2023#, "yyyyMMdd") + i

如何从20230101开始按照日历新建文件夹

……

dim d as date = cdate("2023-01-01")

参数名: index

Dim lst = FileSys.GetFiles("E:\全案设计资料\2022年度全案\A压缩的\2022集合图片")
Dim d As Date = CDate("2023-01-01")

For i As Integer = 0 To lst.count - 1 Step 20
    Dim dir As String = "E:\全案设计资料\2022年度全案\A压缩的\抖音分组\D" & format(d, "yyyyMmdd")
    d = d.adddays(1)
    Output.Show(dir)
      FileSys.CreateDirectory(dir)
    For j As Integer = i To i + 19
        FileSys.CopyFile(lst(j), dir & "\" & FileSys.GetName(lst(j)))
    Next
Next

执行完了报错怎么解决求助老师