[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

10元求助 文件移动的bat(已解决)

求2个批处理
1.
把相同前缀(点 下划线 数字)的相同英文的文件移动到,他相同名字的文件夹内

2.
把刚才移动好的文件夹内_0 到_6(最多到6),再移动到以为0-6为名字的文件夹内.

如果两个能合到一个也可!
支付方式 微信红包  
微信: wyl1212

本帖最后由 yhcfsr 于 2019-3-7 18:12 编辑
  1. <# :
  2. @echo off&cd/d "%~dp0"
  3. more +8 "%~f0" >"%temp%\%~n0.ps1"
  4. powershell -NoLogo -NoProfile -ExecutionPolicy bypass -File "%temp%\%~n0.ps1"
  5. del /f /q "%temp%\%~n0.ps1"
  6. pause
  7. #>
  8. $files = dir *.* -r -Exclude *.bat;
  9. foreach($file in $files)
  10. {
  11.     $newpath = "$($file.Directory)\"+($file.BaseName -replace '_','\');
  12.     if( !(Test-Path $newpath) ) {[void] (md $newpath);}
  13.     Move-Item -Path $file -Destination $newpath
  14. }
复制代码
QQ 33892006

TOP

  1. @echo off
  2. set "path=C:\Users\mac\Desktop\ceshi"
  3. for /f "tokens=1,2,3* delims=_." %%a in ('dir "%path%" /b /a-d') do (
  4. if not exist "%path%\%%a\%%b" mkdir "%path%\%%a\%%b"
  5. move "%path%\%%a_%%b.%%c" "%path%\%%a\%%b\"
  6. )
  7. pause
复制代码
#&cls&@powershell "Invoke-Expression ([Io.File]::ReadAllText('%~0',[Text.Encoding]::UTF8))" &pause&exit

TOP

谢谢两位, 已解决! 非常感谢

TOP

返回列表