mcs/class/Microsoft.VisualBasic/Test/standalone/7021.vb

   1
   2 '
   3 ' Author:
   4 '   Sathya Sudha (ksathyasudha@novell.com)
   5
   6 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
   7 '
   8 ' Permission is hereby granted, free of charge, to any person obtaining
   9 ' a copy of this software and associated documentation files (the
  10 ' "Software"), to deal in the Software without restriction, including
  11 ' without limitation the rights to use, copy, modify, merge, publish,
  12 ' distribute, sublicense, and/or sell copies of the Software, and to
  13 ' permit persons to whom the Software is furnished to do so, subject to
  14 ' the following conditions:
  15 '
  16 ' The above copyright notice and this permission notice shall be
  17 ' included in all copies or substantial portions of the Software.
  18 '
  19 ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  20 ' EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  21 ' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  22 ' NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  23 ' LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  24 ' OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  25 ' WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  26 '
  27
  28 Imports System
  29 Imports System.IO
  30 Imports Microsoft.VisualBasic
  31
  32 Public Class TestClass
  33     Public Function Test() As Integer
  34         Dim fput As Integer
  35         Dim item1 As Short = 0
  36         Dim item2 As Integer =1
  37         Dim item3 As Single = 2
  38         Dim item4 As Double =3
  39         Dim item5 As Decimal = 400
  40         Dim item6 As Byte = 5
  41         Dim item7 As Boolean = True
  42         Dim item8 As Date = #3/4/2003#
  43         Dim item9 As String = "sudha"
  44
  45         Dim caughtException As Boolean
  46
  47         Dim strFileName As String
  48         Dim strPathName As String
  49
  50         '// make sure all files are closed
  51         Microsoft.VisualBasic.FileSystem.Reset()
  52
  53
  54         strPathName = System.IO.Directory.GetCurrentDirectory()
  55         strFileName = "/6748.txt"
  56         System.Console.WriteLine(strPathName & strFileName)
  57         'if this file exists - kill it
  58         If (strFileName = Dir(strPathName & strFileName)) Then
  59             Kill(strPathName & strFileName)
  60         End If
  61
  62         '// RecordNumber < 1 and not equal to -1.
  63         caughtException = False
  64             fput = FreeFile()
  65
  66             FileOpen(fput, strPathName & strFileName, OpenMode.Random, , ,22)
  67
  68             FilePut(fput, item1, 1)
  69             FilePut(fput, item2, 2)
  70             FilePut(fput, item3, 3)
  71             FilePut(fput, item4, 4)
  72             FilePut(fput, item5, 5)
  73             FilePut(fput, item6, 6)
  74             FilePut(fput, item7, 7)
  75             FilePut(fput, item8, 8)
  76             FilePut(fput, item9, 9)
  77
  78         FileClose(fput)
  79         Return 0
  80
  81
  82
  83     End Function
  84
  85 End Class
  86