home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Bonus / WSTAR2 / DISK4 / DELFILE.WM_ / DELFILE.bin
Encoding:
Text File  |  1994-02-28  |  11.5 KB  |  128 lines
  1. REM Description: Delete a file and its backup
  2. REM Filename: delfile.wmc
  3. REM Created by: Steven Wylie - 11/08/93
  4.  
  5. start:
  6. REM
  7. currentDir$ = GetCurrentDir$()
  8. REM Start at the document directory.  The user can always change it in the dialog box.
  9. GetPrivateProfileString "Preferences", "DocumentDirectory", curDir$, docDir$, "wsw.ini"
  10. CHDIR docDir$
  11.  
  12. title$ = "Choose a File to Delete"
  13.  
  14. REM Get a filename from the user.  Only one file at a time will be used.
  15. filename$ = GetFileBox$("*.*", title$)
  16.  
  17. IF filename$ = "" THEN STOP
  18.  
  19. IF Access(filename$, 0) = 0 THEN
  20.     msg$ = filename$ + chr$(13) + chr$(13) + "This file does not exist."
  21.     ret% = MESSAGEBOX(msg$, "Delete File Error", 16)
  22.     STOP
  23. ENDIF
  24.  
  25. IF Access(filename$, 2) = 0 THEN
  26.     msg$ = filename$ + chr$(13) + chr$(13) + "This file is read only and cannot be deleted."
  27.     ret% = MESSAGEBOX(msg$, "Delete File Error", 16)
  28.     STOP
  29. ENDIF
  30.  
  31. bakfilename$ = filename$
  32. dot% = INSTR(bakfilename$, ".") 
  33. IF dot% > 0 THEN
  34.     MID$(bakfilename$, dot% + 1, 3) = "BAK"
  35. ELSE
  36.     bakfilename$ = bakfilename$ + ".BAK"
  37. ENDIF
  38.  
  39. REM See if the backup file exists
  40. bakexist% = Access(bakfilename$, 0)
  41.  
  42. REM If the backup file is the same as the original file, then only one file to delete.
  43. IF UCASE$(bakfilename$) = UCASE$(filename$) THEN bakexist% = 0
  44.  
  45. IF bakexist% <> 0 THEN
  46.     message$ = filename$+chr$(13)+chr$(13)+"Are you sure you want to delete this file and its backup file?"
  47. ELSE
  48.     message$ = filename$+chr$(13)+chr$(13)+"Are you sure you want to delete this file?"
  49. ENDIF
  50. ret2% = MessageBox(message$, "Delete File", 33)
  51. IF ret2% = 2 THEN STOP
  52. KILL filename$
  53. IF bakexist% > 0 THEN KILL bakfilename$
  54.  
  55. REM Restore the original directory.
  56. CHDIR currentDir$
  57. 
  58. *****  WARNING *****
  59. This is a WSWin macro file.
  60. Subsequent data is binary information and should not be modified.
  61. # MF # 1.0None762570354L╝ ═$
  62. 8çêë    åê
  63. 8
  64. ÅïÉî7æÆÄèÅÉæìÆôö
  65. 8
  66. 'ì
  67. 8     òû
  68. 8ÜÖ ÿÜò¢£    ù¢
  69. 8
  70. âù₧ƒâ
  71. 8
  72. 8 ó áùóúñ
  73. âúÑâ
  74. 8 ¬¿
  75. º¬½¼"¡ù½«¿
  76. º«»░"▒¡»"▓▒⌐    ª▓
  77. 8╖╡╕╢┤ª╖╕│╣
  78. 8
  79. 8 ╝╗ áù╝╜╛
  80. â╜┐â
  81. 8 ┴¿
  82. º┴┬├"─ù┬┼¿
  83. º┼╞╟"╚─╞"╔╚└    ª╔
  84. 8╩╡╦╢┤ª╩╦│╠
  85. 8
  86. 8     ═ù
  87. 8 !
  88. .╬Ç═╧
  89. 8!!â╬╤â
  90. 8!#╘╬Ç
  91. /═╘╥╙╨
  92. 8#%"╓═╒    ═╓
  93. 8%)╪ á═╪╫┘
  94. 8)+0
  95. ┌═▄▌
  96. ┌ù▐▀
  97. â▄▐αâ
  98. 8+0,╫
  99. 8,- â╫Γâ
  100. 8-/σ¿
  101. ºσµτ"ΦùµΘ¿
  102. ºΘΩδ"∞ΦΩ"φ∞Σ    πφß
  103. 8/1∩¿
  104. º∩≡±"≥ù≡≤¿
  105. º≤⌠⌡"÷≥⌠"≈÷ε    π≈
  106. 813√∙ⁿ·┤π√ⁿ°²
  107. 833
  108. â°╗ â
  109. 834
  110. 845'ù
  111. 855â╫â
  112. 856'═
  113. 869'å~f.τO.τO.τO .τO-.τO5.τO;.τOA.τON.τO^.τO    l.τO
  114. z.τO ê.τO û.τOñ.τO▓.τO╢.τO╣.τO╜.τO└.τO┬.τO─.τO╞.τO╔.τO╠.τO╧.τO╥.τO╘.τO╓.τO┌.τO▄.τO▐.τOα.τO Γ.τO!Σ.τO"Θ.τO#∞.τO$≡.τO%⌡.τO&ⁿ.τO'/τO(
  115. /τO)/τO*/τO+/τO,"/τO-(/τO.-/τO/3/τO06/τO1;/τO2@/τO3B/τO4E/τO5J/τO6N/τO7T/τO8Y/τO9`/τO:g/τO;l/τO<o/τO=w/τO>y/τO?{/τO@/τOAê/τOBî/τOCÅ/τODù/τOE₧/τOFú/τOG¡/τOH┤/τOI╣/τOJ╜/τOK┬/τOL╟/τOM═/τON╤/τOO╒/τOP▄/τOQπ/τORΩ/τOS≡/τOT≈/τOU0τOV0τOW0τOX$0τOY10τOZ:0τO[G0τO\P0τO]X0τO^`0τO_h0τO`q0τOav0τOb{0τOcÇ0τOdç0τOeÄ0τOfö0τOg¢0τOh¥0τOió0τOj¿0τOk«0τOl╡0τOm╛0τOn╟0τOo╦0τOp╙0τOq╫0τOr▄0τOsΓ0τOtΦ0τOuε0τOv⌠0τOw∙0τOx■0τOy1τOz1τO{1τO|1τO}∩>  ∩>+∩>+    ∩>∩>∩>  ∩> ∩>&∩>
  116.           2∩>
  117. ëA∩>      F∩>     K∩>çc∩>+      q∩>+      à∩>
  118.           ì∩>+      ù∩>      £∩>      í∩>      ª∩>      ½∩>  ░∩>     ╡∩>
  119.           ╝∩>+      ╓∩>
  120.           α∩>
  121. ë∞∩>+      ≥∩>      °∩>      ■∩>     ∩>  ▓    ∩>+       ∩>  ▓∩>ç ∩>  T∩>  #∩>  )∩>     /∩>  T4∩>
  122.           9∩>
  123. ë->∩>+  A∩>+      ]∩>  c∩>      i∩>     o∩>      u∩>  {∩>      ü∩>     ç∩>      ì∩>      ô∩>          ÿ∩>ç/ú∩>+      ╖∩>+  ║∩>      └∩>  ╞∩>     ╠∩>  ÷╤∩>+  ╙∩>  ┘∩>  ▀∩>     σ∩>  ÷Ω∩>+      ∩>   ∩>      &∩>     ,∩>      2∩>  8∩>      >∩>     D∩>      J∩>      P∩>      V∩>  \∩>     b∩>
  124.           o∩>          t∩>+      x∩>  j}∩>  Ré∩>+  ä∩>+      è∩>  É∩>+      ù∩>      ¥∩>          º∩>  ¡∩>     │∩>
  125. ë%║∩>  ┬┐∩>      ┼∩>     ╦∩>      ╤∩>     ╫∩>  ┬▌∩>  nπ∩>  &Θ∩>
  126.           ≥∩>+      3∩>  9∩>      ?∩>     E∩>      K∩>  Q∩>      W∩>     ]∩>      c∩>      i∩>+      û∩>  £∩>      ó∩>     ¿∩>      «∩>  ┤∩>      ║∩>     └∩>      ╞∩>      ╠∩>          ╥∩>+      α∩>+  !π∩>      Θ∩>  ∩∩>     ⌡∩>  ╢√∩>  ╢∩>  ε∩>  ε∩>∩>????01CANCELERRORNUM[T1]
  127. STARTCURRENTDIR$GETCURRENTDIR$[T2][T3]GETPRIVATEPROFILESTRING"Preferences""DocumentDirectory"DOCDIR$"wsw.ini"[T4][T5][T6][T7][T8][T9]TITLE$"Choose a File to Delete"FILENAME$GETFILEBOX$"*.*"[T10][T11][T12][L1]""[L2]ACCESS[L3][T13][T14][T15][L4]MSG$CHR$13"This file does not exist."[T16][T17][T18][T19][T20][T21][T22][T23][T24]RET%MESSAGEBOX"Delete File Error"16[T25][T26][T27][L5]2[T28][T29][T30][L6]"This file is read only and cannot be deleted."[T31][T32][T33][T34][T35][T36][T37][T38][T39][T40][T41][T42]BAKFILENAME$DOT%"."[L7][L8]3"BAK"[T43]".BAK"[T44]BAKEXIST%[T45][T46]UCASE$[L9][T47][T48][T49][T50][L10][L11][L12]MESSAGE$"Are you sure you want to delete this file and its backup file?"[T51][T52][T53][T54][T55][T56][T57][T58][T59]"Are you sure you want to delete this file?"[T60][T61][T62][T63][T64][T65][T66][T67][T68]RET2%"Delete File"33[T69][T70][T71][L13][L14][L15][L16]
  128.