!请慎重操作!
SET TALK OFF
CLEAR
ZS=ADIR(WJ,'','D')
RQ =
INPUTBOX("删除此日期前的所有文件夹", "输入截止日期",
;
"20100101", 0, '', '0')
FOR I=3 TO ZS
IF WJ(I,1)<=RQ
?SYS(5)+SYS(2003)+'\'+WJ(I,1)
WJM=TRIM(SYS(5)+SYS(2003)+'\'+WJ(I,1))
!RMDIR /s/q &WJM
ENDIF
ENDFOR
[此贴子已经被作者于2016-11-30 11:49编辑过]