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

   1 Imports System
   2 Imports System.IO
   3 Imports Microsoft.VisualBasic
   4
   5 Public Class TestClass
   6     Public Function Test() As Integer
   7         Dim fput As Integer
   8         Dim item1 As Short
   9         Dim item2 As Integer
  10         Dim item3 As Single
  11         Dim item4 As Double
  12         Dim item5 As Decimal
  13         Dim item6 As Byte
  14         Dim item7 As Boolean
  15         Dim item8 As Date
  16         Dim item9 As String
  17
  18         Dim caughtException As Boolean
  19
  20         Dim strFileName As String
  21         Dim strPathName As String
  22
  23         '// make sure all files are closed
  24         Microsoft.VisualBasic.FileSystem.Reset()
  25
  26
  27         strPathName = System.IO.Directory.GetCurrentDirectory()
  28         strFileName = "/6748.txt"
  29
  30         '// RecordNumber < 1 and not equal to -1.
  31         caughtException = False
  32         Try
  33             fput = FreeFile()
  34
  35             FileOpen(fput, strPathName & strFileName, OpenMode.Random, , ,22)
  36
  37             FileGet(fput, item1, 1)
  38             FileGet(fput, item2, 2)
  39             FileGet(fput, item3, 3)
  40             FileGet(fput, item4, 4)
  41             FileGet(fput, item5, 5)
  42             FileGet(fput, item6, 6)
  43             FileGet(fput, item7, 7)
  44             FileGet(fput, item8, 8)
  45             'FileGet(fput, item9, 9)
  46
  47         System.Console.WriteLine(item1)
  48         System.Console.WriteLine(item2)
  49         System.Console.WriteLine(item3)
  50         System.Console.WriteLine(item4)
  51         System.Console.WriteLine(item5)
  52         System.Console.WriteLine(item6)
  53         System.Console.WriteLine(item7)
  54         System.Console.WriteLine(item8)
  55         ' System.Console.WriteLine(item9)
  56         Catch e As Exception
  57
  58          Return Err.Number
  59         End Try
  60         FileClose(fput)
  61         Return 0
  62
  63
  64
  65     End Function
  66
  67 End Class
  68