联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
附件 1: pqscript.rar (2007-4-19 12:56, 153.06 KiB,下载次数: 262)
Dim PriSize PriSize = 2048 Allow Manual Reboot Set Default Bad Sector Test State OFF Select Disk 1 Dim PriNum Dim i i = 1 PriNum = 0 Select Partition FIRST DO WHILE i < GetTotalPartitions IF IsPrimary Then PriNum = PriNum + 1 End If Select Partition Next i = i + 1 Loop IF IsPrimary Then PriNum = PriNum + 1 End If dim ExtNum ExtNum = GetPartitionNumber Extended If ExtNum <> 0 Then PriNum = PriNum + 1 End If IF PriNum < 4 Then Select Partition Last check Dim bQuit bQuit = 0 IF GetUnusedAmount >= PriSize Then Resize Space After PriSize Else bQuit = 1 End If If bQuit = 0 Then Select Unallocated After Selected Partition Create /FS=FAT32 /LABEL="IBM_SERVICE" Convert To Primary End If End IF