summaryrefslogtreecommitdiff
path: root/tests/examplefiles/example.vbs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/examplefiles/example.vbs')
-rw-r--r--tests/examplefiles/example.vbs55
1 files changed, 0 insertions, 55 deletions
diff --git a/tests/examplefiles/example.vbs b/tests/examplefiles/example.vbs
deleted file mode 100644
index d962b73d..00000000
--- a/tests/examplefiles/example.vbs
+++ /dev/null
@@ -1,55 +0,0 @@
-rem VBScript examples
-
-' Various constants of different types
-const someText = "some " & """text"""
-const someInt = 123
-const someHex = &h3110c0d3
-const someFloat = 123.45e-67
-const someDate = #1/2/2016#
-const someTime = #12:34:56 AM#
-const someBool = vbTrue ' -1
-
-' Do some math.
-radius = 1.e2
-area = radius ^ 2 * 3.1315
-a = 17 : b = 23
-c = sqr(a ^2 + b ^ 2)
-
-' Write 10 files.
-For i = 1 to 10
- createFile( i )
-Next
-
-Public Sub createFile(a)
- Dim fso, TargetFile
- TargetPath = "C:\some_" & a & ".tmp"
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set TargetFile = fso.CreateTextFile(TargetPath)
- TargetFile.WriteLine("Hello " & vbCrLf & "world!")
- TargetFile.Close
-End Sub
-
-' Define a class with a property.
-Class Customer
- Private m_CustomerName
-
- Private Sub Class_Initialize
- m_CustomerName = ""
- End Sub
-
- ' CustomerName property.
- Public Property Get CustomerName
- CustomerName = m_CustomerName
- End Property
-
- Public Property Let CustomerName(custname)
- m_CustomerName = custname
- End Property
-End Class
-
-' Special constructs
-Option Explicit
-On Error Resume Next
-On Error Goto 0
-
-' Comment without terminating CR/LF. \ No newline at end of file