跨目录删除空子目录


1995-02-17

        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\便行。
 
 