home *** CD-ROM | disk | FTP | other *** search
/ Doom Fever / Doom_Fever-1995_Maple_Media.iso / wad / con2zip.bas < prev    next >
BASIC Source File  |  1994-10-13  |  318b  |  14 lines
  1. CHDIR "D:\TEMP"
  2. OPEN "D:\FILES2\ARJLIST.lst" FOR INPUT AS #1
  3. WHILE NOT EOF(1)
  4. INPUT #1, arjfile$
  5. sh$ = "ARJ e D:\FILES2\" + arjfile$ + " D:\TEMP"
  6. sh2$ = "PKZIP " + LEFT$(arjfile$, LEN(arjfile$) - 3) + "ZIP D:\TEMP\*.*"
  7. sh3$ = "MOVE *.ZIP D:\FILES"
  8. SHELL sh$
  9. SHELL sh2$
  10. SHELL sh3$
  11. KILL "D:\TEMP\*.*"
  12. WEND
  13.  
  14.