[系统相关] Win10批处理如何自动格式化一个指定分区？

C:\Windows\system32>echo GSRAMDisk|convert o: /fs:ntfs /x
文件系统的类型是 FAT32。
输入驱动器 O: 的当前卷标另一进程正在使用该卷。Chkdsk
可能会在没有损坏的情况下汇报错误。
GSRAMDISK 卷创建了 2024/3/14 15:02
卷序列号为 A885-CAC5
Windows 正在校验文件和文件夹...
已完成文件和文件夹验证。

Windows 已扫描文件系统并且没有发现问题。
无需采取进一步操作。

磁盘空间总数 2,088,763,392 字节。
1 个隐藏文件:         4,096 字节。
1 个文件:         4,096 字节。
可用磁盘空间: 2,088,751,104 字节。

每个分配单元中有         4,096 字节。
磁盘上共有       509,952 个分配单元。
磁盘上有       509,949 个可用的分配单元。

正在确定文件系统转换所需的磁盘空间...
磁盘总空间:                  2043904 KB
复制代码

Dim oWshShell, oWshScriptExec, s

Call RunAsAdmin()
Set oWshShell      = CreateObject("WScript.Shell")
Set oWshScriptExec = oWshShell.Exec("cmd.exe")
With oWshScriptExec.StdIn
    .WriteLine "format o: /fs:NTFS /q /x /V:GSRAMDISK"
    .WriteLine "GSRAMDISK"
    .WriteLine "Y"
    .Close()
End With
s = oWshScriptExec.StdOut.ReadAll()
'MsgBox s

Sub RunAsAdmin()
    Dim oWshShell, oShell, s, i
    Set oWshShell = CreateObject("WScript.Shell")
    If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
    s = """" & WScript.ScriptFullName & """ "
    For Each i In WScript.Arguments
        If InStr(i, " ") > 0 Then i = """" & i & """"
        s = s & i & " "
    Next
    Set oShell = CreateObject("Shell.Application")
    oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
    WScript.Quit()
End Sub
复制代码

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

Dim oWshShell, oWshScriptExec, s

Call RunAsAdmin()
Set oWshShell      = CreateObject("WScript.Shell")
Set oWshScriptExec = oWshShell.Exec("cmd.exe")
With oWshScriptExec.StdIn
    .WriteLine "format o: /fs:NTFS /q /x /V:GSRAMDISK"
    .WriteLine "GSRAMDISK"
    .WriteLine "Y"
    .Close()
End With
s = oWshScriptExec.StdOut.ReadAll()
'MsgBox s

Sub RunAsAdmin()
    Dim oWshShell, oShell, s, i
    Set oWshShell = CreateObject("WScript.Shell")
    If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
    s = """" & WScript.ScriptFullName & """ "
    For Each i In WScript.Arguments
        If InStr(i, " ") > 0 Then i = """" & i & """"
        s = s & i & " "
    Next
    Set oShell = CreateObject("Shell.Application")
    oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
    WScript.Quit()
End Sub
复制代码

(
  echo SELECT VOL GSRAMDisk
  echo FORMAT FS=NTFS LABEL="GSRAMDisk" QUICK
) | diskpart
复制代码