title: How to create exe file using VBS
body: <p>How to make executable file with VBS. There is a code for txt but how to change it to make from this exe</p>
  
  <pre><code>    Dim objFSO 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  
  Const Append = 8 
  Dim FDir
  FDir = ("Area where file will be saved") 
  Const FName_Ext = "Title of document.txt"
  Dim Final 
  Final = FDir + FName_Ext
  
  Dim objtxt 
  set objtxt = objFSO.CreateTextFile(Final, True)
  Set objtxt = Nothing
  
  Dim FWrite 
  Set FWrite = objFSO.OpenTextFile(Final, Append)
  
  FWrite.WriteLine("this is the text in the file.!!! hahaha lol wohoo yada yada yada. okay done!")  
  FWrite.Close()
  Set FWrite = Nothing
  Set objFSO = Nothing
  </code></pre>