title: what this code mean?
body: <p>what this code mean ?
   what effect when i transform my code into setuo file ? </p>
  
  <pre><code>Dim W As Object
          Dim E As String
          W = CreateObject("Wscript.shell")
          If VB.Left(Extension, 1) &lt;&gt; "." Then
              E = "." &amp; Extension &amp; "\"
          Else
              E = Extension &amp; "\"
              Extension = Mid(Extension, 2)
          End If
          W.regwrite("HKCU\" &amp; E, Extension &amp; " File")
          W.regwrite("HKCU\" &amp; Extension &amp; " File\", Description)
          W.regwrite("HKCU\" &amp; Extension &amp; " File\DefaultIcon\", FileIcon)
      W.regwrite("HKCU\" &amp; Extension &amp; " File\Shell\Open\Command\", ProgramPath &amp; " %1")
          W.regwrite("HKCU\" &amp; Extension &amp; " File\Shell\", "Open")
      End Sub
  </code></pre>
  
  <p>and what this mean?</p>
  
  <pre><code>  W.regwrite("HKCU\" &amp; Extension &amp; " File\Shell\Open\Command\", ProgramPath &amp; " %1")
  </code></pre>