<code><font color=#000099>Private</font> <font color=#000099>Sub</font> _
  File1_DblClick
  <font color=#000099>If</font> sPath <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=#000099>With</font> File1
    <font color=#000099>If</font> .ListIndex > -1 <font _
      color=#000099>Then</font>
      sPath = .Path & IIf(Right$(.Path, 1) <> "\", "\", "")
      ShellExecute Me.hWnd, "open", sPath & .List(.ListIndex), "", "", 1
    <font color=#000099>End</font> <font color=#000099>If</font>
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>