4 ' Sathya Sudha (ksathyasudha@novell.com)
6 ' Copyright (C) 2004 Novell, Inc (http://www.novell.com)
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:
16 ' The above copyright notice and this permission notice shall be
17 ' included in all copies or substantial portions of the Software.
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.
30 Imports Microsoft.VisualBasic
32 Public Class TestClass
33 Public Function Test() As Integer
45 Dim caughtException As Boolean
47 Dim strFileName As String
48 Dim strPathName As String
50 '// make sure all files are closed
51 Microsoft.VisualBasic.FileSystem.Reset()
54 strPathName = System.IO.Directory.GetCurrentDirectory()
55 strFileName = "/6748.txt"
57 '// RecordNumber < 1 and not equal to -1.
58 caughtException = False
62 FileOpen(fput, strPathName & strFileName, OpenMode.Random, , ,22)
64 FileGet(fput, item1, 1)
65 FileGet(fput, item2, 2)
66 FileGet(fput, item3, 3)
67 FileGet(fput, item4, 4)
68 FileGet(fput, item5, 5)
69 FileGet(fput, item6, 6)
70 FileGet(fput, item7, 7)
71 FileGet(fput, item8, 8)
72 'FileGet(fput, item9, 9)
74 System.Console.WriteLine(item1)
75 System.Console.WriteLine(item2)
76 System.Console.WriteLine(item3)
77 System.Console.WriteLine(item4)
78 System.Console.WriteLine(item5)
79 System.Console.WriteLine(item6)
80 System.Console.WriteLine(item7)
81 System.Console.WriteLine(item8)
82 ' System.Console.WriteLine(item9)