public class Test public Shared Sub Main Dim file_num As Integer = FreeFile() Dim file_name As String = "test.txt" FileOpen(file_num, file_name, OpenMode.Input, OpenAccess.Read, OpenShare.Shared) Do While Not EOF(file_num) Dim txt As String = LineInput(file_num) Console.WriteLine(txt) Loop FileClose(file_num) End Sub End class
13.3.File Utilities | ||||
13.3.1. | Copy a file | |||
13.3.2. | Use the HMACSHA1 hashing function to generate a checksum for a file. | |||
13.3.3. | Delete a file with kill | |||
13.3.4. | Delete a file | |||
13.3.5. | File copy | |||
13.3.6. | Move a File | |||
13.3.7. | Move a file with File.Move | |||
13.3.8. | Use FreeFile | |||
13.3.9. | Use FreeFile to read a text file |