Win10批处理如何自动格式化一个指定分区？

bcetl

1. ::获取管理员权限
   
2. %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
   
3. 
   
4. ::格式化O盘分区为ntfs
   
5. format O: /v:GSRAMDisk /fs:ntfs /q /u
   
6. pause

复制代码

以上为脚本。这是个内存虚拟盘，因虚拟软件不成熟，开机后老是搞成fat32格式，实际使用有很多限制。但优点是软件免费，其它方面稳定运行多年，现想开机即格式化或转换为ntfs格式。

分区卷标名：GSRAMDisk

1-执行脚本的第一个对话框内容是：
C:\Windows\system32>format O: /v:GSRAMDisk /fs:ntfs /q /u
文件系统的类型是 FAT32。
新的文件系统是 NTFS。
输入驱动器 O: 的当前卷标


2-第二个对话内容是：
C:\Windows\system32>format O: /v:GSRAMDisk /fs:ntfs /q /u
文件系统的类型是 FAT32。
新的文件系统是 NTFS。
输入驱动器 O: 的当前卷标GSRAMDisk

警告，非移动磁盘驱动器 O:
上的所有数据将会丢失!
是否继续进行格式化(Y/N)?y



请问如何全自动化？自动设置卷标，留空也行。自动确认格式化

semiuel

convert o: /fs:ntfs /x

bcetl

回复 2# semiuel




亲，这个转换代码试过。
运行结果是：
C:\Windows\system32>convert O: /fs:ntfs /x
文件系统的类型是 FAT32。
输入驱动器 O: 的当前卷标

bcetl

能快速格式化，是最好的。因为这个临时盘里，都是临时文件，非重要。

czjt1234

convert 转换为 NTFS 是可以的，因为你一开机就转换，空盘转换很快的

要不这样试试
echo Y|format O: /v:GSRAMDisk /fs:ntfs /q /u

bcetl

回复 5# czjt1234

C:\Windows\system32>echo Y  | format O: /v:GSRAMDisk /fs:ntfs /q /u
文件系统的类型是 FAT32。
新的文件系统是 NTFS。
输入驱动器 O: 的当前卷标为此驱动器输入的卷标不正确。

C:\Windows\system32>pause
请按任意键继续. . .


C:\Windows\system32>echo GSRAMDisk  | format O: /v:GSRAMDisk /fs:ntfs /q /u
文件系统的类型是 FAT32。
新的文件系统是 NTFS。
输入驱动器 O: 的当前卷标
警告，非移动磁盘驱动器 O:
上的所有数据将会丢失!
是否继续进行格式化(Y/N)?
警告，非移动磁盘驱动器 O:
上的所有数据将会丢失!
是否继续进行格式化(Y/N)?
C:\Windows\system32>pause
请按任意键继续. . .


还是不行哦。

czjt1234

1. C:\Windows\system32>echo GSRAMDisk|convert o: /fs:ntfs /x
   
2. 文件系统的类型是 FAT32。
   
3. 输入驱动器 O: 的当前卷标另一进程正在使用该卷。Chkdsk
   
4. 可能会在没有损坏的情况下汇报错误。
   
5. GSRAMDISK 卷创建了 2024/3/14 15:02
   
6. 卷序列号为 A885-CAC5
   
7. Windows 正在校验文件和文件夹...
   
8. 已完成文件和文件夹验证。
   
9. 
   
10. Windows 已扫描文件系统并且没有发现问题。
    
11. 无需采取进一步操作。
    
12. 
    
13. 磁盘空间总数 2,088,763,392 字节。
    
14. 1 个隐藏文件:         4,096 字节。
    
15. 1 个文件:         4,096 字节。
    
16. 可用磁盘空间: 2,088,751,104 字节。
    
17. 
    
18. 每个分配单元中有         4,096 字节。
    
19. 磁盘上共有       509,952 个分配单元。
    
20. 磁盘上有       509,949 个可用的分配单元。
    
21. 
    
22. 正在确定文件系统转换所需的磁盘空间...
    
23. 磁盘总空间:                  2043904 KB

复制代码

我在win10虚拟机测试转换文件系统成功
注意不要有多余的空格

另外format的/v参数可能是用于指定新的卷标的，所以要输入一次卷标，再输入一次Y
这个我用vbs在win10虚拟机测试通过

1. Dim oWshShell, oWshScriptExec, s
   
2. 
   
3. Call RunAsAdmin()
   
4. Set oWshShell      = CreateObject("WScript.Shell")
   
5. Set oWshScriptExec = oWshShell.Exec("cmd.exe")
   
6. With oWshScriptExec.StdIn
   
7.     .WriteLine "format o: /fs:NTFS /q /x /V:GSRAMDISK"
   
8.     .WriteLine "GSRAMDISK"
   
9.     .WriteLine "Y"
   
10.     .Close()
    
11. End With
    
12. s = oWshScriptExec.StdOut.ReadAll()
    
13. 'MsgBox s
    
14. 
    
15. Sub RunAsAdmin()
    
16.     Dim oWshShell, oShell, s, i
    
17.     Set oWshShell = CreateObject("WScript.Shell")
    
18.     If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
    
19.     s = """" & WScript.ScriptFullName & """ "
    
20.     For Each i In WScript.Arguments
    
21.         If InStr(i, " ") > 0 Then i = """" & i & """"
    
22.         s = s & i & " "
    
23.     Next
    
24.     Set oShell = CreateObject("Shell.Application")
    
25.     oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
    
26.     WScript.Quit()
    
27. End Sub

复制代码

bcetl

我在win10虚拟机测试转换文件系统成功
注意不要有多余的空格

另外format的/v参数可能是用于指定新的卷标 ...
czjt1234 发表于 2024-3-14 15:33

    vbs脚本可以 如果能用bat脚本就好了

czjt1234

试试批处理vbs混编

1. rem 另存为 ANSI 编码 bat
   
2. ' & cls & cscript.exe /nologo /e:vbscript "%~f0" & exit
   
3. 
   
4. Dim oWshShell, oWshScriptExec, s
   
5. 
   
6. Call RunAsAdmin()
   
7. Set oWshShell      = CreateObject("WScript.Shell")
   
8. Set oWshScriptExec = oWshShell.Exec("cmd.exe")
   
9. With oWshScriptExec.StdIn
   
10.     .WriteLine "format o: /fs:NTFS /q /x /V:GSRAMDISK"
    
11.     .WriteLine "GSRAMDISK"
    
12.     .WriteLine "Y"
    
13.     .Close()
    
14. End With
    
15. s = oWshScriptExec.StdOut.ReadAll()
    
16. 'MsgBox s
    
17. 
    
18. Sub RunAsAdmin()
    
19.     Dim oWshShell, oShell, s, i
    
20.     Set oWshShell = CreateObject("WScript.Shell")
    
21.     If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
    
22.     s = """" & WScript.ScriptFullName & """ "
    
23.     For Each i In WScript.Arguments
    
24.         If InStr(i, " ") > 0 Then i = """" & i & """"
    
25.         s = s & i & " "
    
26.     Next
    
27.     Set oShell = CreateObject("Shell.Application")
    
28.     oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
    
29.     WScript.Quit()
    
30. End Sub

复制代码

newswan

1. 
   
2. (
   
3.   echo SELECT VOL GSRAMDisk
   
4.   echo FORMAT FS=NTFS LABEL="GSRAMDisk" QUICK
   
5. ) | diskpart

复制代码