Shelltpara='a   -ad   -y  -dh  -ep1  '+' "'+allt(thisform.bkfile.value)+'" '+'    "'+thisform.comment+'\sur"'  &&messageb("rar.exe  "+Shelltpara)
  oShell=Createobject("Wscript.shell")
  oShell.Run("rar.exe  "+Shelltpara,0,.T.)

if director('&filen0.')
   commandstr= 'dele file   '+  ' "&filen0.\*.*" '   &&   messagebox(commandstr)
   &commandstr.
   commandstr= 'rd '+'  "&filen0."'  &&    messagebox(commandstr)
   &commandstr.
endif  
if director( '&filen.')
   commandstr= 'dele file   '+'  "&filen.\*.*" '  &&    messagebox(commandstr)
   &commandstr.
   commandstr= 'rd    '+'  "&filen." '   &&   messagebox(commandstr)
   &commandstr.
endif