Hello, I need some help with Reflection Basic programming. I am
trying to monitor the existence of a file and once the file is
deleted, a message box pops-up to tell me that the file is deleted.
Below is the way I code it, but somehow I am unable to read the
results of my LISTF command to determine if the file is existent
or not.

Please help me.

Sub Main

   file_exist = true
   fname = Application.InputBox("Filename to mont","DSCOPY from PEACE.SHR @
CESIUM")
   if fname <> "" then
      while file_exist
         application.transmit "listf " & fname & CR
         msgbox("wait for host trigger")
         application.waitforhosttrigger
         msgbox("wait 1 sec")
         application.wait 1
         msgbox("read one line")
         result = application.readline(1)
         msgbox("after read")
         ' result returns BLANK !!! why???
         msgbox(result)
         if instr(result,"CIERR") > 0 then
            msgbox("heehee")
            file_exist = false
         end if
      wend
   end if

End Sub

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *