跨目录删除空子目录
IF C$ = " " THEN
PRINT "USAGE : ALLRD [drive:] [directory] <CR>"
END
END IF
SHELL "cd\"
SHELL "dir" + C$ + "*./b/s >c:\TEMP.PPP"
OPEN "C:\TEMP.PPP" FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, line$
line$ = "RD " + line$
SHELL line$
LOOP
KILL "C:\TEMP.PPP"
END
将此程序编译成ALLRD.EXE后，但可使用，如要删除C盘DOS\下的空目录，只要运行ALLRD C:\DOS\便行。