标题跨目录删除空子目录

　　C$ = COMMAND$
　　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\便行。