home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / ALF20WB.ZIP / ALF.ZIP / ALFORPH.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-11-29  |  744 b   |  26 lines
  1. @echo off
  2. if exist %1\nul goto isdir
  3. %1
  4. :isdir
  5. cd %1
  6. if exist %2:\max\alf\alffiles.$$$ del %2:\max\alf\alffiles.$$$
  7. IF NOT EXIST FILES.BBS GOTO NOFBB
  8. attrib +H files.*
  9. for %%F in (*.*) do call %2:\max\alf\alforph2.bat %%F %2 %3
  10. GOTO END
  11. :NOFBB
  12. IF EXIST FILES.IDX DEL FILES.IDX
  13. IF EXIST FILES.DAT DEL FILES.DAT
  14. IF EXIST FILES.DMP DEL FILES.DMP
  15. for %%F in (*.*) do ECHO %%F >>%2:\max\alf\alf2FILE.$$$
  16.  
  17. TYPE %2:\max\alf\alf2FILE.$$$ |FIND /V "FILES.BBS" >%2:\max\alf\alfFILES.$$$
  18. GOTO OUT
  19. :END
  20. IF NOT EXIST %2:\max\alf\alfFILES.$$$ GOTO OUT
  21. TYPE %2:\max\alf\alfFILES.$$$ |FIND /V "FILES.BBS"> %2:\max\alf\alf2FILE.$$$
  22. DEL %2:\max\alf\alfFILES.$$$
  23. REN %2:\max\alf\alf2FILE.$$$ alfFILES.$$$
  24. :OUT
  25. del %2:\max\alf\alforph.abt
  26.