【20元红包】求写一批处理，具体要求已经写清楚，有的请联系

孤独浪侠 · 发表于 2017-11-28 21:02:14

结算方式:加QQ313666691，我会发送一个符合格式的文件夹，通过QQ远程协助，让我看你执行后的效果。
效果OK，我发红包，你把批处理交给我。
有意向的请跟帖回复，并注明QQ昵称。

要求如下：

根目录/一层文件夹/若干文件

在一层文件夹内，新建跟“一层文件夹” 同名文件夹，并把原先所有"一层文件"夹内的所有文件，移动进入新建立的文件夹内。形成以下格式

根目录/123/若干文件
根目录/123/123/若干文件

其中根目录下面有若干个一层文件夹，需要识别全部并操作。

本人曾交易成功记录：
http://www.bathome.net/thread-45247-1-1.html

zaqmlp · 发表于 2017-11-28 21:45:20

@echo off
for /f "delims=" %%a in ('dir /ad /b "%~dp0"') do (
md "%~dp0%%a\%%a" 2>nul
for /f "delims=" %%b in ('dir /a-d /b "%~dp0%%a" 2^>nul') do move "%~dp0%%a\%%b" "%~dp0%%a\%%a\%%b"
for /f "delims=" %%b in ('dir /ad /b "%~dp0%%a" 2^>nul^|find /v "%%a"') do move "%~dp0%%a\%%b" "%~dp0%%a\%%a"
)
pause

复制代码

ivor · 发表于 2017-11-28 21:47:19

@echo off
for /f "delims=" %%a in ('dir /b /ad') do (
move "%%a" @ >nul
md "%%a"
move @ "%%a" >nul
move "%%a\@" "%%a\%%a" >nul
echo 正在移动==》 %%a
)
pause

复制代码

孤独浪侠 · 发表于 2017-11-28 21:54:06

回复 3# ivor

QQ远程看代码后效果非常满意 20元红包已经到账再次感谢。

ivor · 发表于 2017-11-28 22:38:41

回复 4# 孤独浪侠

红包收到，已捐助论坛

Batcher · 发表于 2017-11-28 22:55:41

回复 5# ivor

收到。
捐助分+20
感谢对论坛的支持！

		自动登录	找回密码
密码			注册

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

【20元红包】求写一批处理，具体要求已经写清楚，有的请联系

浏览过的版块