@if (0)==(0) echo off
set "file=列表.txt"
set "fold=G:\文件汇总"
for /f "tokens=1*delims=|" %%i in ('dir /b /s /a-d *.jpg^|cscript //nologo //e:jscript "%~f0" "%file%"')do (
    md "%fold%\%%i\"
    move "%%j" "%fold%\%%i\%%~nxj"
) 2>nul
pause & exit
@end

var str = WScript.StdIn.ReadAll();
var fso = new ActiveXObject('Scripting.FileSystemObject');
var txt = fso.OpenTextFile(WScript.Arguments(0)).ReadAll();
txt = txt.replace(/[\^$()\[\]+\-{}.]/g, '\\$&');
var arr, reg = /(.+)\r\n/g, re, ar, s='';
while(arr = reg.exec(txt+'\r\n')){
    re = new RegExp('.*(' + arr[1] + ')[^\\\\]*\\r\\n', 'g');
    while(ar = re.exec(str)){
        s += ar[1].replace(/\-/g, '\\') + '|' + ar[0];
    }
}
WScript.Echo(s)
复制代码

@echo off
set "drive_path=%~1"
set "drive_drive=%~d1"
echo=%drive_path%
echo=%drive_drive%
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir/a-d/s/b/l/on "%drive_drive%\*.jpg"') do (
for /f "delims=" %%j in ('type "%drive_path%"') do (
  if /i "%%~nxi"=="%%~nxj" (
   set "name=%%~nxj"
   set "name=!name:-=\!"
   set "name=!name:_=\!"
   echo !name!
   echo,f|xcopy /y "%%i" "G:\文件汇总\!name!"
  )
)
)
(for /f "delims=" %%i in ('dir/a-d/s/b/l/on "g:\文件汇总\*.jpg"') do echo,"目录树:%%i")>"c:\文件汇总目录树.txt"
echo=此文件路径"c:\文件汇总目录树.txt"
start "" "c:\文件汇总目录树.txt"
pause
复制代码

@if (0)==(0) echo off
for /f "tokens=1*delims=|" %%i in ('dir /b /s G:\*-*.jpg^|cscript //nologo //e:jscript "%~f0"')do (
    md "G:\文件汇总\%%i\"
    move "%%j" "G:\文件汇总\%%i\"
) 2>nul
pause & exit
@end

var str = WScript.StdIn.ReadAll().replace(/G:\\文件汇总\\.+\.jpg$/igm, '');
var fso = new ActiveXObject('Scripting.FileSystemObject');
var txt = fso.OpenTextFile('列表.txt').ReadAll();
txt = txt.replace(/[\^$()\[\]+\-{}.]/g, '\\$&');
var arr, reg = /(.+)\r\n/g, re, ar, s='';
while(arr = reg.exec(txt+'\r\n')){
    re = new RegExp('.*(' + arr[1] + ')[^\\\\]*\\r\\n', 'ig');
    while(ar = re.exec(str)){
        s += ar[1].replace(/\-/g, '\\') + '|' + ar[0];
    }
}
WScript.Echo(s)
复制代码