code:

---

$file=''c:\documents and settings\portal.lnk'
shell 'DEL /S /F /Q '+$file

---

code:

---

:CLEANUP

SHELL "%COMSPEC% /C dir /b /s C:\unpatch.bak > C:\out.txt"

IF GetFileSize("C:\out.txt") > 0

  IF OPEN(1, "C:\out.txt") = 0
    $cl = ReadLine(1)

    WHILE @ERROR = 0
      $ncl = SUBSTR($cl, 1, LEN($cl) - 12) 

      if SUBSTR($ncl, LEN($ncl)-5, LEN($ncl)) = "Backup"	
        SHELL "deltree /Y " + CHR(34) + $ncl + CHR(34)
      ENDIF
      $cl = ReadLine(1)

    LOOP
  ENDIF
  $_ = CLOSE(1)
ENDIF

DEL "C:\out.txt"
  

---

Of course I'd do it differently now that I'm so much smarter.