From b6094d9472f2bbfaa339ed13bc6616149eb85ab6 Mon Sep 17 00:00:00 2001
From: nightwing <amirjanyan@gmail.com>
Date: Fri, 28 Dec 2012 02:07:29 +0400
Subject: [PATCH] add vbscript demo

---
 demo/kitchen-sink/doclist.js        |  1 +
 demo/kitchen-sink/docs/vbscript.vbs | 23 +++++++++++++++++++++++
 demo/kitchen-sink/modelist.js       |  1 +
 3 files changed, 25 insertions(+)
 create mode 100644 demo/kitchen-sink/docs/vbscript.vbs

diff --git a/demo/kitchen-sink/doclist.js b/demo/kitchen-sink/doclist.js
index db1383fe..7e970d22 100644
--- a/demo/kitchen-sink/doclist.js
+++ b/demo/kitchen-sink/doclist.js
@@ -119,6 +119,7 @@ var docs = {
     "docs/tex.tex": "Tex",
     "docs/textile.textile": {name: "Textile", wrapped: true},
     "docs/typescript.ts": "Typescript",
+    "docs/vbscript.vbs": "VBScript",
     "docs/xml.xml": "XML",
     "docs/xquery.xq": "XQuery",
     "docs/yaml.yaml": "YAML",
diff --git a/demo/kitchen-sink/docs/vbscript.vbs b/demo/kitchen-sink/docs/vbscript.vbs
new file mode 100644
index 00000000..ace5c9f9
--- /dev/null
+++ b/demo/kitchen-sink/docs/vbscript.vbs
@@ -0,0 +1,23 @@
+myfilename = "C:\Wikipedia - VBScript - Example - Hello World.txt"
+MakeHelloWorldFile myfilename
+ 
+Sub MakeHelloWorldFile (FileName)
+'Create a new file in C: drive or overwrite existing file
+   Set FSO = CreateObject("Scripting.FileSystemObject")
+   If FSO.FileExists(FileName) Then 
+      Answer = MsgBox ("File " & FileName & " exists ... OK to overwrite?", vbOKCancel)
+      'If button selected is not OK, then quit now
+      'vbOK is a language constant
+      If Answer <> vbOK Then Exit Sub
+   Else
+      'Confirm OK to create
+      Answer = MsgBox ("File " & FileName & " ... OK to create?", vbOKCancel)
+      If Answer <> vbOK Then Exit Sub
+   End If
+   'Create new file (or replace an existing file)
+   Set FileObject = FSO.CreateTextFile (FileName)
+   FileObject.WriteLine "Time ... " & Now()
+   FileObject.WriteLine "Hello World"
+   FileObject.Close()
+   MsgBox "File " & FileName & " ... updated."
+End Sub
\ No newline at end of file
diff --git a/demo/kitchen-sink/modelist.js b/demo/kitchen-sink/modelist.js
index 6c87f851..20e86659 100644
--- a/demo/kitchen-sink/modelist.js
+++ b/demo/kitchen-sink/modelist.js
@@ -91,6 +91,7 @@ var modesByName = {
     text:       ["Text"         , "txt"],
     textile:    ["Textile"      , "textile"],
     typescript: ["Typescript"   , "typescript|ts|str"],
+    vbscript:   ["VBScript"     , "vbs"],
     xml:        ["XML"          , "xml|rdf|rss|wsdl|xslt|atom|mathml|mml|xul|xbl"],
     xquery:     ["XQuery"       , "xq"],
     yaml:       ["YAML"         , "yaml"]