[megaloman]

Как вариант, VBS-скрипт.

Код:

Option Explicit

Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim FolderIn
With WScript.Arguments
    If .Count > 0 Then
        Dim BoxIn: BoxIn = .Item(0)
        If Not FSO.FolderExists(BoxIn) Then
            MsgBox "Папка" + vbLf + BoxIn + vbLf + "не найдена", 16
            WScript.Quit
        End If
    Else
        MsgBox "Скрипту не указан путь обрабатываемой папки", 16
        WScript.Quit
    End If
End With

For Each FolderIn In FSO.GetFolder(BoxIn).SubFolders
    FolderIn.Move UCase(FolderIn.Path)
Next

Создайте где-нибудь файл с расширением vbs, создайте на рабочем столе на него иконку и в проводнике затягивайте на нее обрабатываемую папку. В ней подпапки будут переименованы, не включая вложенные.

Если скрипт будет переименовывать папки рядом с собой (не включая вложенные), то он упрощается

Код:

BoxIn = Replace(WScript.ScriptFullName, "\" + WScript.ScriptName,"")
For Each FolderIn In CreateObject("Scripting.FileSystemObject").GetFolder(BoxIn).SubFolders
    FolderIn.Move UCase(FolderIn.Path)
Next

Можно, конечно, извратиться в CMD, но это тихий ужас по быстродействию и надежности

Код:

@Echo Off
cls
	Set "U=АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯABCDEFGHIJKLMNOPQRSTUVWXYZ"
	Set "L=абвгдеёжзийклмнопрстуфхцчшщьыъэюяabcdefghijklmnopqrstuvwxyz"

	For /L %%i In (0,1,58) Do Call Set "@@%%i=%%L:~%%i,1%%=%%U:~%%i,1%%"
	FOR /F "usebackq delims=" %%d IN (`2^>nul Dir /B /A:D`) DO (
		Set "Name=%%d"
		For /L %%i In (0,1,58) Do Call :MyRen "%%@@%%i%%"
		Call Ren "%%d" "%%Name%%" 
	)
Pause
Exit /B

:MyRen
	Call Set "Name=%%Name:%~1%%"
Exit /B

Сохранить в 866 кодировке, разместить в папке, где переименовываются подпапки

[Sisin]

Обновить нельзя что - систему или Powershell? Если что, то Powershell можно обновить и на семёрке. »

Ничего нельзя обновить. В этом и проблема.

[wasp14]

TotalCMD: курсор на любой папке - Alt_+_+(выделится тип файлов) - Ctrl+M - выбрать в выпадающем списке ВСЕ ЗАГЛАВНЫЕ - Enter

[Serguei Kouzmine]

можно авм помочь ?

Код:

mkdir привет\test1
dir привет
    Directory: C:\temp\привет

Код:

Mode                LastWriteTime         Length Name
----                -------------         ------ ----
d-----        7/14/2022   9:18 PM                test1

Код:

get-childitem -path '.' | where-object { $_.PSIsContainer } | 
where-object { $_.name -clike '[а-я]*'} | 
foreach-object { 
move-item -path $_.name -destination ($_.name.ToUpper() + '.tmp' ) ;
move-item -path ($_.name.ToUpper() + '.tmp' ) -destination ($_.name.ToUpper() ) 
}

Код:

dir ПРИВЕТ

Код:

    Directory: C:\temp\ПРИВЕТ


Mode                LastWriteTime         Length Name
----                -------------         ------ ----
d-----        7/14/2022   9:18 PM                test1

Код:

$PsVersionTable

Код:

Name                           Value
----                           -----
CLRVersion                     2.0.50727.8797
BuildVersion                   6.0.6002.18111
PSVersion                      2.0
WSManStackVersion              2.0
PSCompatibleVersions           {1.0, 2.0}
SerializationVersion           1.1.0.1
PSRemotingProtocolVersion      2.1