newswan

powershell
递归处理所有子目录
在所有级间都添加了 "-"
武器-现代-01-01
稍微有点不符合

function f-1()
{
    push-location $args[0]
    $p = (get-item .).name
    Get-ChildItem -Directory | foreach-object {
        Rename-Item $_ -NewName ($p + "-" + $_.name)
    }
    Get-ChildItem -Directory | foreach-object {
        f-1 $_.name
    }
    pop-location
}

f-1 "C:\Users\admin\Desktop\aaa"
复制代码

newswan

回复 3# mypcl01


  随便在哪里，用你目标目录代替 aaa 哪里，那是测试目录

newswan

回复 6# mypcl01

先看看这个
http://www.bathome.net/thread-59270-1-1.html

function f-1()
{
    push-location $args[0]
    $p = (get-item .).name
    Get-ChildItem -Directory | foreach-object {
        if ( -not ($_.basename).contains("-") )
        {
            Rename-Item $_ -NewName ($p + "-" + $_.name)
        }
    }
    Get-ChildItem -Directory | foreach-object {
        f-1 $_.name
    }
    pop-location
}

f-1 "."
复制代码

"." 表示本目录
添加了一个判断，已经处理过的不再处理，不需要的话，删除 6 7 9 行

newswan

powershell

function f-1()
{
    push-location $args[0]
    $p = (get-item .).name
    Get-ChildItem -Directory | foreach-object {
        Rename-Item $_ -NewName ($p + "-" + $_.name)
    }
    Get-ChildItem -Directory | foreach-object {
        f-1 $_.name
    }
    pop-location
}


function fl-1()
{
    push-location $args[0]
    $p = (get-item .).name
    $count = 0
    Get-ChildItem -File "*.txt" | foreach-object {
        $count += 1
        Rename-Item $_ -NewName ($p + "-" + $count.ToString().PadLeft(2,"0") + $_.Extension)
    }
    Get-ChildItem -Directory | foreach-object {
        Rename-Item $_ -NewName ($p + $_.name)
    }
    Get-ChildItem -Directory | foreach-object {
        fl-2 $_.name
    }
    pop-location
}

function fl-2()
{
    push-location $args[0]
    $p = (get-item .).name
    $count = 0
    Get-ChildItem -Directory | foreach-object {
        $count += 1
        Rename-Item $_ -NewName ($p + $count.ToString().PadLeft(2,"0"))
    }
    Get-ChildItem -Directory | foreach-object {
        fl-3 $_.name
    }
    pop-location
}

function fl-3()
{
    push-location $args[0]
    $p = (get-item .).name
    $count = 0
    Get-ChildItem -File "*.txt" | foreach-object {
        $count += 1
        Rename-Item $_ -NewName ($p + "-" + $count.ToString().PadLeft(2,"0") + $_.Extension)
    }
    pop-location
}


fl-1 "."
复制代码

newswan

回复 10# mypcl01


你可以发 目录树

C:\Users\admin\Desktop\aaa>tree /f
Folder PATH listing
Volume serial number is DC2F-31AE
C:.
│   a.ps1
│   a.txt
│   a2.txt
│   a6.txt
│   b.txt
│   b1.txt
│   b2.txt
│
├───1
│   ├───11
│   │       a11
│   │       a22
│   │
│   └───22
│           a11
│           a22
│
└───2
    ├───11
    │       a11
    │       a22
    │
    └───22
            a11
            a22
复制代码

newswan

需求翻译：

目录树有三级
一级\二级\三级

目录更名
一级\一级二级\一级二级num

文件更名
一级目录  一级-num
三级目录  一级二级-num