WPC>/ A%DQDQ8d5Ryh !e. ?6Nqr^wGi۬侻f}Tk8лAKO+ĆlKNݛV Xs!?TC|Ӊ.gØJm-[?# cYؑOJ}iwK|amz"--zAb֤m,Тΐ9P{M}alެВQ =~s=8&YrAf2J^8sÏ /A)}>.(1F[WaA'ۄmG~XJ9F#DtqTcL;zAzv4uwӿIy ƴN(2eO }R f$ <ΏIh{O)2nT IZCo9ֳA1r폦ZvyJӄ߸8 A '}&ԵB#e %g 0fmw4N^  mU,U:UTK   $$$$$$ 0M&E&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& D5&&&&& AS'''''' BY'Y'Y'Y'Y'Y'Y'Y'Y'Y'Y'Y'Y'Y' B*v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v'v' C0''''''''''''''''''''''' D3' B7( B7:(:(:(:(:(:( 0q(q(q(q( 0(( 0D))) D+_)_)_) C) C))))))) D3) B) D3******* BA*A*A*A* C^*^*^*^*^*^* Bx*x*x*x************** C[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+[+ D3u+u+u+u+ B++ D3+++++ D/+ D3', D3Z, B*, D3, B*, D3- B*G- D3q- B- D5- D-- DK#.#.#.#.#.#.#.#.#.#. Cn. C.... C. C. C. C. C / C$/HP LaserJet 5L0X(>j$ C  C Cw4\p0D0D3|xLevel 1Level 2Level 3Level 4Level 5 S68 U,iAZArial "Arial Regular. Z<Century Schoolbook Regular95?H:\MasterMacros\DeleteCurrentFile.wcm 1 c j 5 $CHECKVERSION11@HoLQUITLOB*@HoLQUITLOB*@/othe current documentVCURRENTHB%o*SrVCURRENTVFNAMEHB8HB%VFNAMEHvVANSLR-oDelete current fileLNGo Are you sure you want to delete rVFNAME o?LN[LIBn)@rVANS[*aHEU HE!H[LUE*"rVFNAMErVCURRENT*#HE*$%HoLERRORLOB*@&HrVFNAMELVBM'VSUCCESS'HoLQUITLOB*@(rVSUCCESSV)H-oDelete Current FileLNQo%The document was successfully deletedLNBn)@*V+,H-oDelete Current FileLN?oThe document was NOT deletedLNBn)@-./HE*12H-oDelete Current FileLNoEThe file was NOT deleted, probably because of file attribute settingsLNBn)@4HE*6  7Hx LIB)VHRT8H[L@[LIB,+ NNN9 rNNN aXb/FB2 rNNN a`/FB- :HvVANSLR!o Macro VersionLN]o+ You are running the first build of WPWin11rVHRToFThere is no certainty that any macro will run correctly in that build.rVHRTrVHRToYPlease install the latest service pack from ftp://ftp.corel.com/pub/WordPerfect/wpwin/11/rVHRTrVHRTo=Click "OK" to run the macro anyway. Click "Cancel" otherwiserVHRTLN[[LIBn)@@rVANS[- HE*  A[|5[)511LERROR1.LQUIT++16CHECKVERSION11N!OEN WordPerfect!OEN WordPerfect)OENPSMacroFacility/OENPSMacroInterpreterHs  -}' XXXX ^X X  DeleteCurrentFile.wcm@Version13.12006March24@(#Page  1  ڀof  2  ڈ  CharlesRossiter@cccharles@rossiter.co.za o At) xdE-xA (Z3-}$ j! XXXX HX X  tttt)!dxdxiE<<C d&0 d d,Sticky Notedd'dxd3+0 d d d3+0 d d d(Z2-}$ j! XXXX HX X  ($($$   1  'dxdd d'dxd  d'dxdP Pdd dLevel 1Level 2Level 3Level 4Level 5dd'dxd d'dxd' dxd'dxd$$$$'dxd&P d d&&&&'dxd&p d Pd(((('dxd&p Pd d****'dxd dttttt'dxdt'dxdtttt?Single Blue!dxdxd(d2d(#(#(#2006March24 72  Macrotodeletethefilecurrentlyonscreen XX/(#WordPerfectversions8X3  CharlesRossiter 5(# charles@rossiter.co.za    @3 .;@A@ dd3 .AThemacrocanusefullybeaddedtotheWPWinFiledropdownmenu   Itprovidesa1clickprocedurefordeletingtemporaryfiles,currentlyonscreen   @/*@A@ dd/*A2006March24:Modifiedtoprovideerrortrappingforreadonlyorotherfileattributes.   @lg [@ ,,, ^EndIfPlatform("Comment01")# ^, ,,M# lg   Application(WordPerfect;"WordPerfect";Default!)    CallCheckVersion11() 0  #2(#.(#(##//CheckBuildofWPWin11 Ԉ ]X  OnError(lQuit)   OnCancel(lQuit)   vCurrent="thecurrentdocument" YT If(?name="")  ЀvFName=vCurrent  Else  ЀvFName=?Path+?Name UP Endif  MessageBox(vAns;"Deletecurrentfile";  Ѐ"Areyousureyouwanttodelete"+vFName+"?";YesNo!)  If(vAns=6) QL ЀHardReturn()   0   # (#.(#(##//CloseNoSavecrashesinWPWin8ifdocumentacrossanetworkisunmodified Ԉ  ЀCloseNoSave()  ЀWait(5) MH  ЀIf(vFName=vCurrent)  ! ЀQuit " ЀEndIf  # ЀOnError(lerror)K 0  #(#.  (# (##//TrapforfailureofDeleteFilecommand,causedbyfileattributes  Ԉ I!D$ ЀvSuccess=DeleteFile(vFName) "% ЀOnError(lquit)}  "& ЀIf(vSuccess) #' ЀMessageBox(;"DeleteCurrentFile";"Thedocumentwassuccessfullydeleted") E$@( ЀEndIf %) ЀElse %* ЀMessageBox(;"DeleteCurrentFile";"ThedocumentwasNOTdeleted") &}+ Endif A'< , Label(lQuit) ( - Quit (!. Label(lError) =*8#0 MessageBox(;"DeleteCurrentFile"; *#1 "ThefilewasNOTdeleted,probablybecauseoffileattributesettings") +$2 Quit $(#.//EndofMacroDeleteCurrentFile.wcm Ԉ z,u%3   9-4&4  ProcedureCheckVersion11()2(#. %//CheckBuildofWPWin11   vHRt=NToC(63754)  nnn=VersionInfo(PerfectFitVersion!;ProductVersionNumber!) ~ If(nnn<11000000000300.0andnnn>11000000000000.0) B = MessageBox(vAns;"MacroVersion";"YouarerunningthefirstbuildofWPWin11"+vHRt+   "Thereisnocertaintythatanymacrowillruncorrectlyinthatbuild."+vHRt+vHRt+   "Pleaseinstallthelatestservicepackfromftp://ftp.corel.com/pub/WordPerfect/wpwin/11/"+vHRt+vHRt+  z "Click""OK""torunthemacroanyway.Click""Cancel""otherwise"+vHRt; > 9 OKCancel!|IconWarning!)   If(vAns>1)0 ` Quit0 ` (#` (#EndIf0 (# (#EndIf{v (#(#  EndProc  :5  i