[文件操作] 批处理如何对应表格批量修改文件夹名称？

$path='某路径'
# 不指定路径将以当前路径修改为准
if (!(Test-Path $path -PathType Container)){$path=$PSScriptRoot}
cd $path
$data=Import-Excel '某.xlsx' -DataOnly -HeaderName A,B
$data|?{$_.A -ne $null}|%{ren $_.A $_.B}
复制代码

@set @theCopyLeft=0;/*&echo off&pause

rem 将表格改名为book1.xlsx然后跟 批处理一起放到需要的目录下运行

set ttm=the-%date:~0,10%-temp
set ttm=%ttm:/=-%
md %ttm%
if %errorlevel% EQU 1 echo can not create temp folder&exit /b
for /f "skip=1 tokens=1,2 delims=/ " %%i in ('cscript //nologo //e:jscript "%~f0"') do (
if exist "%%i" move "%%i" "%ttm%\%%j" 1>nul
)
for /d %%i in (*) do if "%%i" NEQ "%ttm%" rename "%%i" "___%%i"
for /d %%i in ("%ttm%\*") do (1>nul move "%%i" .)
rmdir %ttm%
pause &exit/b
rem */

var thefile="book1.xlsx";
var eee=new ActiveXObject("excel.application");
var thepath=WScript.ScriptFullName.split("\\");
thepath.pop();
thepath=thepath.join("\\")+"\\";
var wb=eee.Workbooks.Open(thepath+thefile);
var sheet=wb.ActiveSheet;
var a,b,i=1;
while(1){
a=sheet.Range("A"+i).text;
b=sheet.Range("B"+i).text;
if(!a || !b){break;}
WScript.Echo(a,"/",b);
i+=1;
}
wb.Close();
eee.Quit();
复制代码

@echo off
cd /d "%~dp0"
for /f "skip=1 tokens=1-2 delims=," %%i in ('type "1.csv"') do (
    if exist "%%i" (
        ren "%%i" "%%j"
    )
)
复制代码

@echo off
rem 将表格复制到 1.txt 文本中
for /f "useback tokens=1-2" %%a in ("1.txt") do (
	if exist "%%a" ren "%%a" "%%a_1"
)
for /f "useback tokens=1-2" %%a in ("1.txt") do (
	if exist "%%a_1" ren "%%a_1" "%%b"
)
pause
复制代码