@echo off
rem 清单和批处理全部保存为ansi编码
set list=d:\清单.txt
set dirpath=d:\test
cd /d "%dirpath%"
for /f "delims=" %%i in ('dir /b /s ^| sort /r') do (
	for /f "tokens=1-2 delims=+" %%a in ('find /i "%%~ni" ^< "%list%"') do (
		if /i "%%~ni" equ "%%a" (
			if exist "%%i\" (
				ren "%%i" "%%b"
			) else (
				ren "%%i" "%%b%%~xi"
			)
		)
	)
)
pause
复制代码

@echo off
rem 批处理保存为ansi编码
set folder=file
set dirpath=d:\test
cd /d "%dirpath%"
for /f "delims=" %%i in ('dir /b /s /ad "%folder%"') do (
	move "%%i\*" "%%i\..\"
)
pause
复制代码

rem 另存为 ANSI 编码 bat
' & cls & cscript.exe /nologo /e:vbscript "%~f0" %* & pause & exit /b

Option Explicit
Dim oFSO, oWshShell, oStream1, oStream2, s, p, L, U, f

p = "d:\1.db"    '路径
L = 40           '最小
U = 50           '最大

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshShell = CreateObject("WScript.Shell")
Set oStream1 = CreateObject("ADODB.Stream")
oStream1.Type = 1    'adTypeBinary
oStream1.Mode = 3    'adModeReadWrite
Set oStream2 = CreateObject("ADODB.Stream")
oStream2.Type = 1    'adTypeBinary
oStream2.Mode = 3    'adModeReadWrite
p = oFSO.GetAbsolutePathName(p)
s = ""
Call EnumFiles(p)
For Each f In Split(Left(s, Len(s) - 2), vbCrLf)
    Call t(f)
Next
wsh.Echo "ok"

Sub t(ByVal f)
    Dim i, size, n, t
    wsh.Echo f
    oWshShell.CurrentDirectory = oFSO.GetParentFolderName(f)
    oStream1.Open()
    oStream1.LoadFromFile f
    size = oStream1.Size
    If size <= L * 1024 * 1024 Then
        wsh.Echo "无需分解" & vbCrLf
        oStream1.Close()
        Exit Sub
    End If
    n = 0
    Do
        n = n + 1
        t = Right("000000" & n, 6)
        t = oFSO.GetBaseName(f) & "-" & t & "." & oFSO.GetExtensionName(f)
        Randomize
        i = Int((U - L + 1) * Rnd() + L)
        oStream2.Open()
        oStream1.CopyTo oStream2, i * 1024 * 1024
        oStream2.SaveToFile t, 2    'adSaveCreateOverWrite
        i = Int(oStream2.Size / 1024 / 1024)
        oStream2.Close()
        wsh.Echo i & "M →" & vbTab & t
        If oStream1.EOS Then
            oStream1.Close()
            wsh.Echo
            Exit Sub
        End If
    Loop
End Sub

Sub EnumFiles(ByVal folderPath)
    Dim oFile, oFolder      'oFSO, s 是全局变量
    On Error Resume Next    '忽略无权限读取的文件夹和文件
    For Each oFile In oFSO.GetFolder(folderPath).Files
        s = s & oFile.Path & vbCrLf
    Next
    For Each oFolder In oFSO.GetFolder(folderPath).SubFolders
        Call EnumFiles(oFolder.Path)
    Next
End Sub
复制代码

@echo off
setlocal enabledelayedexpansion
for /f "tokens=1-2 delims=+" %%i in (list.txt) do set "_%%i=%%j"
for /f "delims=" %%i in ('dir /s /b /ad^|sort /r') do if defined _%%~nxi ren "%%i" "!_%%~nxi!"
for /f "delims=" %%i in ('dir /s /b /a-d') do if defined _%%~ni ren "%%i" "!_%%~ni!.%%~xi"
pause
复制代码

"C:\Program Files\7-Zip\7z.exe" a -tZIP -mx0 "D:\1.zip" "D:\1.db" -v50M
复制代码

@echo off
set "list=.\清单.txt"
set "dir0=C:\D\Test\ps1\要处理的文件夹"

for /f "usebackq tokens=1* delims=+" %%A in ("%list%") do set "?%%~A=%%~B"
for /f "delims=" %%A in ('dir /a-d-h /b /s "%dir0%"') do (
  if defined ?%%~nA (
    setlocal enabledelayedexpansion
    for %%B in ("!?%%~nA!") do (
      endlocal
      ren "%%~fA" "%%~B%%~xA"
    )
  )
)
for /f "delims=" %%A in ('dir /ad-h /b /s "%dir0%"^|sort /r') do (
  if defined ?%%~nxA (
    setlocal enabledelayedexpansion
    for %%B in ("!?%%~nxA!") do (
      endlocal
      ren "%%~fA" "%%~B"
    )
  )
)

pause
复制代码

@echo off
set "file=文件夹名"
set "dir0=C:\D\Test\ps1\要处理的文件夹"

for /f "delims=" %%A in ('dir /ad-h /b /s "%dir0%"^|sort /r') do (
  if /i "%%~nxA"=="%file%" (
    move "%%~fA\*" "%%~dpA"
  )
)

pause
复制代码

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"
pause
exit /b
#>
$srcDir = "." # 要处理的文件夹路径 - 文件夹
$filePattern = "*.db" # 要分割的文件类型
$fragSizeRange = "40-50" # 文件分割容量范围,单位:MB
$dstdir = ".\拆分后的目标路径" # 指定拆分后的文件存放路径
$format = '{0}+{1:000000}{2}' # 拆分后的文件名格式

$didst = [IO.Directory]::CreateDirectory($dstdir)
$dirPath = $didst.FullName
$buff = New-Object 'byte[]' -ArgumentList 64kb

function Get-RandomSize {
  [double]$lo, [double]$hi = $fragSizeRange -split '-'
  $lo = $lo * 1mb
  $hi = $hi * 1mb
  if ($lo -eq $hi) {
    $m = $lo
  } elseif ($lo -gt $hi) {
    $m = Get-Random -Minimum $hi -Maximum $lo
  } else {
    $m = Get-Random -Minimum $lo -Maximum $hi
  }
  $m
}
(Get-ChildItem -Path ("$srcDir\*" -replace '[\[\]]', '`$&') -Filter $filePattern -Recurse | Where-Object { $_ -is [IO.FileInfo] -and $_.FullName -ne $env:batchfile }) | ForEach-Object {
  try {
    $_.FullName
    # $dirPath = [IO.Path]::GetDirectoryName($_.FullName)
    $ctr = 1
    $fragSize = Get-RandomSize
    $fragName = $format -f $_.BaseName, $ctr, $_.Extension
    $fragPath = [IO.Path]::Combine($dirPath, $fragName)
    if ($_.Length -le $fragSize) {
      $_.MoveTo($fragPath)
      return
    }
    $stream1 = New-Object System.IO.FileStream -ArgumentList ($_.FullName, [IO.FileMode]::Open, [IO.FileAccess]::Read, [IO.FileShare]::Read, 64kb)
    $stream2 = New-Object System.IO.FileStream -ArgumentList ($fragPath, [IO.FileMode]::Create, [IO.FileAccess]::Write, [IO.FileShare]::None, 64kb)
    $totalSize = 0
    while (($readCount = $stream1.Read($buff, 0, $buff.Length)) -gt 0) {
      $stream2.Write($buff, 0, $readCount)
      $totalSize += $readCount
      if ($totalSize -ge $fragSize) {
        $stream2.Close()
        if ($stream1.Position -ge $stream1.Length) {
          break
        }
        $totalSize = 0
        ++$ctr
        $fragSize = Get-RandomSize
        $fragName = $format -f $_.BaseName, $ctr, $_.Extension
        $fragPath = [IO.Path]::Combine($dirPath, $fragName)
        $stream2 = New-Object System.IO.FileStream -ArgumentList ($fragPath, [IO.FileMode]::Create, [IO.FileAccess]::Write, [IO.FileShare]::None, 64kb)
      }
    }
    $stream1.Close()
    $stream2.Close()
    # 删除原文件
    # $_ | Remove-Item
  } finally {
    if ($stream1) { $stream1.Close(); $stream1 = $null; }
    if ($stream2) { $stream2.Close(); $stream2 = $null; }
  }
  trap {}
}
复制代码

@echo off
@REM 要处理的文件夹
set "dir0=."
@REM 要合并的文件类型
set "pattern=*+*.db"
@REM 指定合并后的文件存放路径
set "dir1=.\合并后的路径"

md "%dir1%" 2>nul
for /f "delims=" %%A in ('dir /a-h-d /b /s "%dir0%\%pattern%"') do (
  for /f "delims=+" %%B in ("%%~nA") do (
    if not defined ?%%~dpA%%~B (
      set "?%%~dpA%%~B=1"
      copy /b "%%~dpA%%~B+*%%~xA" "%dir1%\%%~B%%~xA"
    )
  )
)

pause
复制代码

创建 卷 及大小 = <n> *1000

默认此参数使用 <n> 作为一千个 (1000) 字节 (非 1024 x 字节)。您也可以输入符号“k”来表示千字节的大小，或者符号“b”表示字节，在百万字节为 -‘m’，一百万个字节为 -‘M’ G 字节 - ‘g’十亿个字节 -‘G’。如果省略了大小，将会使用自动检测。

它允许使用十进位小数作为十进制的标记。例如，v1.5g 参数表示 1.5 GB。

您可以指定几个 -v 参数来为不同的卷设置不同的大小。例如 :

WinRAR a -v100k -v200k -v300k arcname
复制代码

@echo off
rem 保存为ansi编码
rem 可选 m g
set s=m
set r1=40
set r2=50
set dirpath=d:\test

if "%s%" equ "m" (
	set /a min=r1*1024*1024
) else if "%s%" equ "g" (
	for /f "delims=" %%a in ('powershell -c "%r1%*1024*1024*1024"') do set min=%%a
) else (
	exit
)
cd /d "%dirpath%"
for /f "delims=" %%i in ('dir /b /s /a-d') do (
	set file=%%i
	set name=%%~dpni
	for /f "tokens=1-2 delims=." %%j in ('powershell -c "%%~zi/%min%"') do (
		setlocal enabledelayedexpansion
		if %%j equ 0 (
			rar a "!name!" -m0 "!file!"
		) else (
			for /l %%l in (1,1,%%j) do (
				set /a "m=!random!%%(r2-r1)+r1,n=!random!%%90+10"
				set str=!str! -v!m!.!n!!s!
			)
			rar a "!name!" !str! -v!r2!!s! -m0 "!file!"
		)
		endlocal
	)
)
pause
复制代码

@echo off
rem 保存为ansi编码
set dirpath=d:\test
cd /d "%dirpath%"
for /f "delims=" %%i in ('dir /b /s /a-d "*part1.rar" "*part01.rar" "*part001.rar"') do (
	rar e "%%i" "%%~dpi"
	if not errorlevel 1 (
		set filepath=%%~dpi
		set name=%%~nxi
		setlocal enabledelayedexpansion
		for %%a in (part001.rar part01.rar part1.rar) do (
			set name=!name:%%a=!
		)
		del "!filepath!\!name!part*.rar"
		endlocal
	)
)
for /f "delims=" %%i in ('dir /b /s /a-d *.rar ^| find /i /v "part"') do (
	rar e "%%i" "%%~dpi" && del "%%i"
)
pause
复制代码