jyswjjgdwtdtj

set fso=createobject("scripting.filesystemobject")
set nowfolder=fso.getfolder("txt所在地文件夹")
tofolder="100个文件夹所在地文件夹"
for each file in nowfolder.files
nowtofolder=tofolder&"\"&cstr(fix((split(file.name,".")(0))/10)+1)
if not fso.folderexists(nowtofolder) then fso.createfolder(nowtofolder)
fso.copyfile file.path,nowtofolder&"\"&file.name,true
next
复制代码

如果比如800到810没有文件
就不会创建80号文件夹

保存为vbs文件