如何批量整理文件内容

794905425

，如何批量将文件归类，做到如上压缩文件中的形式，有何快捷方法，求解

影子123

图片就只有三类吗？

794905425

影子123 发表于 2019-10-25 10:44
图片就只有三类吗？

可能会有添加，目前只需要这三类

0126

set fso=createobject("scripting.filesystemobject")
Set regEx = CreateObject ("VBScript.RegExp")
    regEx.IgnoreCase = True  
    regEx.Global = True  

filepath=fso.GetFolder(".").Path
For Each subFolder In fso.GetFolder(filepath).SubFolders
    For Each file In fso.GetFolder(subFolder.path).files
        regEx.Pattern = ".+\\|[^\\\u4e00-\u9fa5]+$"
        if regEx.test(file) then
           st=regEx.Replace(file,"")
           if len(st)>0 then
              st=subFolder.path & "\" & regEx.Replace(file,"")
              If not fso.folderExists(st) Then
                 fso.Createfolder(st)
              end if
           fso.movefile file , st & "\"
           end if
        end if
    next
Next


Set regEx = Nothing
Set fso = Nothing

794905425

可以不将草图归类到文件夹吗？其他的归类，草图照片这个不用放入文件夹中

0126

794905425 发表于 2019-10-26 20:30
可以不将草图归类到文件夹吗？其他的归类，草图照片这个不用放入文件夹中

if len(st)>0 then 改成 if len(st)>0 and st<> "草图照片" then
-----------------------------------------------------------------------------------------------------
set fso=createobject("scripting.filesystemobject")
Set regEx = CreateObject ("VBScript.RegExp")
    regEx.IgnoreCase = True  
    regEx.Global = True  

filepath=fso.GetFolder(".").Path
For Each subFolder In fso.GetFolder(filepath).SubFolders
    For Each file In fso.GetFolder(subFolder.path).files
        regEx.Pattern = ".+\\|[^\\\u4e00-\u9fa5]+$"
        if regEx.test(file) then
           st=regEx.Replace(file,"")
           if len(st)>0 and st<> "草图照片" then
              st=subFolder.path & "\" & regEx.Replace(file,"")
              If not fso.folderExists(st) Then
                 fso.Createfolder(st)
              end if
           fso.movefile file , st & "\"
           end if
        end if
    next
Next


Set regEx = Nothing
Set fso = Nothing
msgbox "运行完成"