home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / dosk-1.0.lha / DosK / Commands / DeleteK < prev    next >
Text File  |  1995-01-04  |  3KB  |  95 lines
  1. FAILAT 21
  2. PROMPT %S >ENV:PMT
  3. LAB START
  4.    IF $BKUP EQ "1"
  5.       ECHO " "
  6.       ECHO " "
  7.       ECHO "SINGLE FILE DELETE MODE BACKUP ACTIVE"
  8.     ELSE
  9.       ECHO " "
  10.       ECHO " "
  11.       ECHO "BE CAREFUL!!! BACKUP IS OFF"
  12.    ENDIF
  13.    REQUESTCHOICE >ENV:FDEL "DeleteK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "Pick A Delete Mode" "DELETE" "ALL" "FORCE" "BACKUP" "EMPTY DIR" "BYE"
  14.    IF $FDEL EQ "0"
  15.       SKIP DONE
  16.    ENDIF
  17.    IF $FDEL EQ "1"
  18.       REQUESTFILE >ENV:FILE TITLE="PICK A FILE TO DELETE"
  19.       REQUESTCHOICE >ENV:DF "DeleteK" "Delete File" "YES" "NO WAY"
  20.          IF $DF EQ "1"
  21.             IF $BKUP EQ "1"
  22.                COPY $FILE TO RAM:
  23.                DELETE $FILE
  24.                SKIP OUT1
  25.             ENDIF
  26.                DELETE $FILE
  27.          ENDIF
  28.    ENDIF
  29. LAB OUT1
  30.    IF $FDEL EQ "2"
  31.       REQUESTFILE >ENV:FILE TITLE="PICK A DIRECTORY TO DELETE CONTENTS OF" DRAWERSONLY
  32.       cd $file
  33.       $PMT >ram:temp_K4
  34.       ECHO >RAM:TEMP_K3 "WARNING ALL FILES WILL BE DELETED IN:"
  35.       JOIN RAM:TEMP_K3 RAM:TEMP_K4 AS RAM:TEMP_K5
  36.       TYPE RAM:TEMP_K5
  37.       REQUESTCHOICE >ENV:DF "DeleteK" "Delete CONTENTS of Directory" "YES" "NO WAY"
  38.       IF $DF EQ "0"
  39.          SKIP START BACK
  40.       ENDIF
  41.       DELETE $FILE ALL
  42.  ENDIF
  43. ;FORCE AREA ==============================
  44.    IF $FDEL EQ "3"
  45.        REQUESTCHOICE >ENV:TYPE TITLE="DeleteK" "FORCE DELETE " "FILE" "DIRECTORY" "ABORT"
  46.        IF $TYPE EQ "0"
  47.            SKIP START BACK
  48.        ENDIF
  49.      IF $TYPE EQ "1"
  50.        REQUESTFILE >ENV:FILE TITLE="PICK A FILE TO DELETE"
  51.        REQUESTCHOICE >ENV:DF "DeleteK" "FORCE Delete File" "YES" "NO WAY"
  52.          IF $DF EQ "1"
  53.             IF $BKUP EQ "1"
  54.                COPY $FILE TO RAM:
  55.                DELETE $FILE FORCE
  56.                SKIP START BACK
  57.             ENDIF
  58.                DELETE $FILE FORCE
  59.          ENDIF
  60.      ENDIF
  61. IF $TYPE EQ "2"
  62.       REQUESTFILE >ENV:FILE TITLE="PICK A DIRECTORY TO DELETE CONTENTS OF" DRAWERSONLY
  63.       cd $file
  64.       $PMT >ram:temp_K4
  65.       ECHO >RAM:TEMP_K3 "WARNING ALL FILES WILL BE FORCE DELETED IN:"
  66.       JOIN RAM:TEMP_K3 RAM:TEMP_K4 AS RAM:TEMP_K5
  67.       TYPE RAM:TEMP_K5
  68.       REQUESTCHOICE >ENV:DF "DeleteK" "FORCE Delete CONTENTS of Directory" "YES" "NO WAY"
  69.        IF $DF EQ "0"
  70.          SKIP START BACK
  71.       ENDIF
  72.       DELETE $FILE ALL FORCE
  73. ENDIF
  74.    ENDIF
  75. ;END FORCE AREA =========================
  76.    IF $FDEL EQ "4"
  77.       UNSET BKUP
  78.       REQUESTCHOICE >ENV:BKUP "DeleteK" "Turn Backup" "ON" "OFF"
  79.    ENDIF
  80.    IF $FDEL EQ "5"
  81.    REQUESTFILE >ENV:FILE TITLE="PICK A EMPTY DIRECTORY TO DELETE" DRAWERSONLY
  82.    REQUESTCHOICE >ENV:DF "DeleteK" "Delete EMPTY Directory" "YES" "NO WAY"
  83.    DELETE $FILE
  84.    ENDIF
  85.    SKIP START BACK
  86. LAB DONE
  87. cd ram:
  88. DELETE TEMP_K#? quiet
  89. UNSETENV BKUP
  90. UNSETENV FDEL
  91. UNSETENV FILE
  92. UNSETENV TYPE
  93. UNSETENV PMT
  94. PROMPT "%N.%S"
  95.