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

孤独浪侠

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

要求如下：

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

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


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

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

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

Batcher

回复 5# ivor


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

ivor

回复 4# 孤独浪侠


   红包收到， 已捐助论坛

孤独浪侠

回复 3# ivor


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

ivor

@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
复制代码

zaqmlp

@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
复制代码