跨目录删除空子目录

标签：办公软件技巧,软件测试面试技巧,办公软件使用技巧,http://www.duowen123.com 跨目录删除空子目录,
  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\便行。
 

，跨目录删除空子目录