
Imports System.IO

Module Module1

    Sub Main()
        Dim output As IO.StreamWriter
        Dim str As String

        
        If Not Directory.Exists("c:\Visual Basic\Κεφάλαιο 4\4.1") Then
            Directory.CreateDirectory("c:\Visual Basic\Κεφάλαιο 4\4.1")
        End If

        output = IO.File.AppendText("c:\Visual Basic\Κεφάλαιο 4\4.1\myFile.txt")
        output.WriteLine("Η πρώτη μας γραμμή στο αρχείο")
        output.Close()

        Dim input As IO.StreamReader
        
        If IO.File.Exists("c:\Visual Basic\Κεφάλαιο 4\4.1\myFile.txt") 
	Then

            input = IO.File.OpenText("c:\Visual Basic\Κεφάλαιο 4\4.1\myFile.txt")
            Do Until input.EndOfStream
                str = input.ReadLine
                Console.WriteLine(str)
            Loop
            Console.WriteLine(input.ReadToEnd)

            input.Close()
        Else
		Console.WriteLine("Το αρχείο ή η διεύθυνση δεν είναι σωστά")
        End If


        Console.ReadKey()
    End Sub

End Module
