home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / delete_all.amos / delete_all.amosSourceCode
AMOS Source Code  |  1993-01-08  |  1KB  |  44 lines
  1. '
  2. ' This program will automatically delete any unwanted files. 
  3. '
  4. ' All you have to do is type in a path (and/or wildcard)      eg.    Df0:*.Bak   
  5. '
  6. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  7. '  This program was written by Brett George
  8. '
  9. ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  10. Screen Open 0,640,256,2,$8001 : Colour 1,$EFF : Pen 1 : Curs Off 
  11. Set Dir ,""
  12. Repeat 
  13.    Print : Input "Please enter path - ";PATH$
  14.    If A$="" Then Edit 
  15.    A$=Dir First$(PATH$)
  16.    If(A$="") or(Left$(A$,1)="*")
  17.       '
  18.    Else 
  19.       A$=Right$(A$,Len(A$)-1)
  20.       For Z=1 To Len(A$)
  21.          Exit If Exist(Left$(PATH$,Instr(PATH$,"*")-1)+Left$(A$,Z))
  22.       Next 
  23.       A$=Left$(PATH$,Instr(PATH$,"*")-1)+Left$(A$,Z)
  24.       Kill A$
  25.       Print "Deleting ";A$
  26.    End If 
  27.    Do 
  28.       A$=Dir Next$
  29.       If(A$="") or(Left$(A$,1)="*")
  30.          Exit 
  31.       Else 
  32.          A$=Right$(A$,Len(A$)-1)
  33.          Q=0
  34.          For Z=1 To Len(A$)
  35.             Exit If Exist(Left$(PATH$,Instr(PATH$,"*")-1)+Left$(A$,Z))
  36.          Next 
  37.          A$=Left$(PATH$,Instr(PATH$,"*")-1)+Left$(A$,Z)
  38.          Kill A$
  39.          Print "Deleting ";A$
  40.       End If 
  41.    Loop 
  42.    Wait 100
  43. Until PATH$=""
  44. Edit