|
原帖由 hotdll 于 2012-5-2 20:20 发表 
楼主,很感谢您的pecmd2012,真的很棒 。。
ORDERUSB2.WCS:
//USB 空过 C: D:
_SUB FREEUSB
FORM T=%D%
FIND $%T%=DRIVE_FIXED,!! FIND $%RP%=NA,! SUBJ *%D% //U盘后的固定磁盘
FIND $DRIVE_USBFLASH = %T%, ENVI T=DRIVE_USBDISK // USB软盘(DRIVE_USBFLASH) ,当作 USB硬盘(DRIVE_USBDISK)
FIND $%T%=DRIVE_USBDISK,!! ENVI V=SUBJ *%D% //U盘
FIND $%T%=DRIVE_USBDISK,!! FIND $%RP%=NA, ENVI RP=%D% //RP:第一个U盘
MSTR D=%I%,1,%DRVS%
CALC I=%I% + 1
_END
_SUB ORDER_DRIVE2
TEAM ENVI DRVS=CDEFGHIJKLMNOPRSTUVW****| ENVI I=2| ENVI D=C| ENVI RP=NA
LOOP $%D%=*,! CALL FREEUSB
//重新加载HD,USB
SHOW *F:0
//先占着 C: D:
TEAM FORM CT=C:| FIND $DRIVE_NO_ROOT_DIR=%CT%, SUBJ &C:,X:\
TEAM FORM DT=D:| FIND $DRIVE_NO_ROOT_DIR=%DT%, SUBJ &D:,X:\
SHOW *U:0
FIND $DRIVE_NO_ROOT_DIR=%CT%, SUBJ C:, //再释放C
FIND $DRIVE_NO_ROOT_DIR=%DT%, SUBJ D:, //再释放D
_END
CALL ORDER_DRIVE2
[ 本帖最后由 2012abc19701 于 2012-5-2 20:59 编辑 ] |
|