title: VBScript which checks if text file exist and when not create one which contain presetted text
body: <p>I want to check with a vbscript if the text file: <code>"C:\Temp\CAD_Kunde.txt"</code> exists and when not it should create one which contains this text:</p>
  
  <pre><code>1
  BEHR;B18 SP4;B18 SP7;0
  AUDI;B19 SP3;0
  BMW;B19 SP3;0
  BIT;B18 SP4;B19 SP3;B16 SP9;0
  CHRYSLER;B18 SP4;0
  CAE_64;B19 SP3;0
  CNHTC;B19 SP3;0
  DAF;B19 SP3;0
  DASSAULT;B18 SP7;B19 SP3;0
  DFCV;B19 SP3;0
  FORD;B18 SP4;0
  FREIGHTL;B19 SP3;0
  FUSO;B19 SP3;0
  HINO;B19 SP3;0
  HONDA;B19 SP3;0
  IVECO;B19 SP3;0
  MAN;B19 SP3;0
  NISSAN;B19 SP3;0
  MB;B19 SP3;0
  PACCAR;B19 SP3;0
  PORSCHE;B19 SP3;0
  PORSCHE_HYBRID_DX;B19 SP3;0
  PSA;B19 SP3;0
  RENAULT;B19 SP3;0
  RVI;B18 SP4;0
  SCANIA;B19 SP3;0
  TELCO;B19 SP3;0
  UD_TRUCK;B17 SP4;0
  VOLVO_CAR;B18 SP4;0
  VOLVO_TRUCK;B19 SP3;0
  V5_MM;B18 SP4;0
  V5_BM;B19 SP3;0
  V5_TEST;B19 SP9;0
  VW;B19 SP3;0
  </code></pre>
  
  <p>The text in the text file should be created with the same format.</p>
  
  <p>Edit: Ok i have no the part to check the exist of the file and when not to create it. I need help now to implement in the else condition the part to write to the file.</p>
  
  <pre><code>&lt;SCRIPT Language="VBScript"&gt; 
  Option Explicit  
  Dim oTxtFile  
  With (CreateObject("Scripting.FileSystemObject"))   
  If .FileExists("C:\Temp\Kunde.txt") Then       
  Else      
  Set oTxtFile = .CreateTextFile("C:\Temp\Kunde.txt")
  oTxtFile.Close  
  End If  
  End With
  &lt;/script&gt;
  </code></pre>