Program already running

[Knightmonkeyman]

Hi i'm new to programming on VB.

i tried to make the folowing script :
Module Module1

Sub Main()
Dim voornaam, achternaam As Integer
voornaam = FreeFile()
achternaam = FreeFile()
FileOpen(voornaam, "E:\console004a.txt", OpenMode.Output)
FileOpen(achternaam, "E:\console0004b.txt", OpenMode.Output)
PrintLine(voornaam, "Jan")
PrintLine(voornaam, "Peter")
PrintLine(achternaam, "Jansen")
PrintLine(achternaam, "Pietersen")
PrintLine(voornaam, "Klaas")
FileClose(voornaam)
FileClose(achternaam)

End Sub

End Module

When i run it it says program already running and it doesn't print the name's on the txt file.

Can somebody say whats wrong with my script?

[4x2y]

The error must be "File already open." not "Program already running."

The mistake is, voornaam and achternaam gets the same file number because there is no open file, to fix, replace with

        voornaam = FreeFile()
        FileOpen(voornaam, "E:\console004a.txt", OpenMode.Output)

        achternaam = FreeFile()
        FileOpen(achternaam, "E:\console0004b.txt", OpenMode.Output)

Anyway, as documented here, don't use FileOpen, instead use My.Computer.FileSystem or IO.File

The FileOpen function is provided for backward compatibility and may affect performance. For non-legacy applications, the My.Computer.FileSystem object provides better performance.

Example:

    Sub Main()

        Dim F1 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("E:\1.txt", False)
        Dim F2 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("E:\2.txt", False)

        F1.WriteLine("Jan")
        F1.WriteLine("Peter")
        F1.WriteLine("Klaas")
        F1.Close()

        F2.WriteLine("Jansen")
        F2.WriteLine("Pietersen")
        F2.Close()

    End Sub

[si_the_geek]

Welcome to VBForums

Thread moved from the 'Testers and Testing' forum (for help with testing etc) to the 'VB.Net' (VB2002 and later) forum

[Knightmonkeyman]

The error must be "File already open." not "Program already running."

The mistake is, voornaam and achternaam gets the same file number because there is no open file, to fix, replace with

        voornaam = FreeFile()
        FileOpen(voornaam, "E:\console004a.txt", OpenMode.Output)

        achternaam = FreeFile()
        FileOpen(achternaam, "E:\console0004b.txt", OpenMode.Output)

Anyway, as documented here, don't use FileOpen, instead use My.Computer.FileSystem or IO.File



Example:

    Sub Main()

        Dim F1 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("E:\1.txt", False)
        Dim F2 As IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter("E:\2.txt", False)

        F1.WriteLine("Jan")
        F1.WriteLine("Peter")
        F1.WriteLine("Klaas")
        F1.Close()

        F2.WriteLine("Jansen")
        F2.WriteLine("Pietersen")
        F2.Close()

    End Sub

Thanks for the help I did this as script :

Module Module1

Sub Main()
Dim voornaam, achternaam As Integer
voornaam = FreeFile()
achternaam = FreeFile()
Dim F1 As IO.Streamwritter = My.Computer.FileSystem.OpenTextFilewritter("E:\1.txt", False)
Dim F2 As IO.Streamwritter = My.Computer.FileSystem.OpenTextFileWritter("E:\2.txt", False)

F1.WriteLine("Jan")
F1.WriteLine("Peter")
F1.WriteLine("Klaas")
F1.close()

F2.WriteLine("Jansen")
F2.WriteLine("Pietersen")
F2.Close()
End Sub

End Module

It still give's me the error Stopped at Exeption: FileOpen
Thread :
3192

[TysonLPrice]

Thanks for the help I did this as script :

Module Module1

Sub Main()
Dim voornaam, achternaam As Integer
voornaam = FreeFile()
achternaam = FreeFile()
Dim F1 As IO.Streamwritter = My.Computer.FileSystem.OpenTextFilewritter("E:\1.txt", False)
Dim F2 As IO.Streamwritter = My.Computer.FileSystem.OpenTextFileWritter("E:\2.txt", False)

F1.WriteLine("Jan")
F1.WriteLine("Peter")
F1.WriteLine("Klaas")
F1.close()

F2.WriteLine("Jansen")
F2.WriteLine("Pietersen")
F2.Close()
End Sub

End Module

It still give's me the error Stopped at Exeption: FileOpen
Thread :
3192

I'm not familiar how "Streamwritter" works...how did you even test that?

[4x2y]

Don't mix my code with yours, you don't have to use FileOpen any more.