批处理之家 - Powered by Discuz! Board

cls
@echo off
@echo.
@echo.
@echo.
@echo.
@echo 开始删除所有盘符
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo 按任意开始。。。。。
@pause >nul 2>nul
@rem 磁盘0 [系统盘]-----删除第2、3、4分区盘符（1分区为系统、保留第5分区）
diskpart.exe
select disk 0
select partition 2
remove all
select disk 0
select partition 3
remove all
select disk 0
select partition 4
remove all
@rem 磁盘1 [电影备份]-----删除第1、2分区盘符（保留第3分区）
select disk 1
select partition 1
remove all
select disk 2
select partition 2
remove all
@rem 磁盘2 [普通游戏]-----删除第1、2分区盘符（全部分配）
select disk 2
select partition 1
remove all
select disk 2
select partition 2
remove all
@rem 磁盘3 [SSD硬盘] -删除第1、3、4分区盘符（全部分配）
select disk 3
select partition 1
remove all
select disk 3
select partition 3
remove all
select disk 3
select partition 4
remove all
@rem 磁盘4 [回写盘]-----删除第1分区盘符
select disk 4
select partition 1
remove all
select disk 4
select partition 2
remove all
select disk 4
select partition 3
remove all
select disk 4
select partition 4
remove all
cls
@echo.
@echo.
@echo.
@echo.
@echo 删除盘符完成 !
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo 按任意开始修改盘符
@pause >nul 2>nul
@rem 磁盘0 [系统盘]-----D盘=分区2，E盘=分区3（其它分区不分配）
diskpart.exe
select disk 0
select partition 2
assign letter=D
select disk 0
select partition 3
assign letter=E
@rem 磁盘1 [电影备份]-----G盘=分区1（其它分区不分配）
select disk 1
select partition 1
assign letter=G
@rem 磁盘2 [普通游戏]-----J盘=分区2（其它分区不分配）
select disk 2
select partition 2
assign letter=J
@rem 磁盘3 [SSD硬盘] I盘=分区1，R盘=分区3，K盘=分区4（第二分区不分配）
select disk 3
select partition 1
assign letter=I
select disk 3
select partition 3
assign letter=R
select disk 3
select partition K
assign letter=
@rem 磁盘4 [回写盘]-----H盘=分区1
select disk 4
select partition 1
assign letter=H
cls
@echo.
@echo.
@echo.
@echo.
@echo 全部完成！
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@echo.
@pause >nul 2>nul

复制代码

echo,(
select disk 0
select partition 2
assign letter=D
select disk 0
select partition 3
assign letter=E
select disk 1
select partition 1
assign letter=G
select disk 2
select partition 2
assign letter=J
select disk 3
select partition 1
assign letter=I
select disk 3
select partition 3
assign letter=R
select disk 3
select partition K
assign letter=
select disk 4
select partition 1
assign letter=H
)|diskpart.exe

复制代码

echo,(
select disk 0
select partition 2
assign letter=D
select disk 0
select partition 3
assign letter=E
select disk 1
select partition 1
assign letter=G
select disk 2
select partition 2
assign letter=J
select disk 3
select partition 1
assign letter=I
select disk 3
select partition 3
assign letter=R
select disk 3
select partition K
assign letter=
select disk 4
select partition 1
assign letter=H
)>temp.txt
diskpart.exe<temp.txt
del temp.txt

复制代码

On Error Resume Next
Set WSObject = CreateObject("WScript.Shell")
Set RunExec = WSObject.Exec("diskpart")
'RunExec.StdIn.WriteLine "select vdisk file=" & strVFilePath & ""
'RunExec.StdIn.WriteLine "detach vdisk"
RunExec.StdIn.WriteLine "select disk 0"
RunExec.StdIn.WriteLine "select partition 2"
RunExec.StdIn.WriteLine "assign letter=D"
RunExec.StdIn.WriteLine "select disk 0"
RunExec.StdIn.WriteLine "select partition 3"
RunExec.StdIn.WriteLine "assign letter=E"
RunExec.StdIn.WriteLine "select disk 1"
RunExec.StdIn.WriteLine "select partition 1"
RunExec.StdIn.WriteLine "assign letter=G"
RunExec.StdIn.WriteLine "select disk 2"
RunExec.StdIn.WriteLine "select partition 2"
RunExec.StdIn.WriteLine "assign letter=J"
RunExec.StdIn.WriteLine "select disk 3"
RunExec.StdIn.WriteLine "select partition 1"
RunExec.StdIn.WriteLine "assign letter=I"
RunExec.StdIn.WriteLine "select disk 3"
RunExec.StdIn.WriteLine "select partition 3"
RunExec.StdIn.WriteLine "assign letter=R"
RunExec.StdIn.WriteLine "select disk 3"
RunExec.StdIn.WriteLine "select partition K"
RunExec.StdIn.WriteLine "assign letter="
RunExec.StdIn.WriteLine "select disk 4"
RunExec.StdIn.WriteLine "select partition 1"
RunExec.StdIn.WriteLine "assign letter=H"

复制代码